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CAPITOLO PRIMO 


La grafica a bassa risoluzione 


Lo schermo del Commodore 64 è costituito da 1000 quadratini o caselle, 
disposti a formare un rettangolo con 25 righe e 40 colonne. 

In ciascuno di essi può essere sistemato uno dei caratteri della tastiera 
(lettere, numeri o simboli grafici), ed ogni casella corrisponde ad un in¬ 
dirizzo di memoria secondo lo schema indicato nella figura 1. 

La numerazione comincia con la casella nell’angolo superiore sinistro 
(1024) e termina con la casella dell’angolo inferiore destro (2023). 

Ogni volta che termina una riga, la numerazione procede con la prima 
casella della riga successiva. Si noti che le caselle appartenenti ad una 
stessa colonna differiscono fra loro di 40 unità in più o in meno, a se¬ 
conda che si percorra la colonna in verso discendente o ascendente. 

I caratteri della tastiera, a loro volta, corrispondono ciascuno ad un nu¬ 
mero compreso fra 0 e 255, secondo il codice indicato nella figura 2. I 
numeri 32 e 96 corrispondono a uno spazio vuoto. 

Aggiungendo 128 ai numeri suddetti, si hanno in corrispondenza gli stes¬ 
si caratteri stampati in REVERSE. 

A questo punto siamo in grado di far comparire sullo schermo un carat¬ 
tere qualsiasi su una casella a piacere, per mezzo del comando 

POKE A,B 

dove A e B indicano rispettivamente l’indirizzo corrispondente alla casel¬ 
la e il codice corrispondente al carattere. 
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Figura 1. Schermo del Commodore 64. 
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0=1? 

1=8 

2=B 

3=C 

8=H 

9=1 

10=J 

11=K 

16=P 

1?=Q 

18=R 

19=8 

24=X 

25=V 

26=2 

27= [ 

32= 

33= ! 

34= " 

35=# 

40= < 

41 = ) 

42=# 

43=+ 

48=0 

49=1 

50=2 

51=3 

56=8 

57=9 

58= : 

59=.; 

64=- 

65=* 

66=1 

67=" 

72= 1 

73=', 

74= s 

75=^ 

80=1 

81=* 

82=- 

83=4 

88=* 

89= 1 

90=4 

91=4 

96= 

97=1 

98=» 

99=“ 

104=» 

105=r 

106= 1 

107= h 

112= r 

113= a 

1 14=t 

115=4 

120=“ 

121=. 

122=J 

123=. 


4=Ii 

5=E 

6=F 

7=G 

12=L 

13=M 

14=N 

15=0 

20=T 

21=U 

22=V 

23=W 

28=£ 

29=] 

30= t 

31=<- 

36=f 

37=X 

38=& 

33 =' 

44 = > 

45=- 

46=. 

47 =/ 

52=4 

53=5 

54=6 

55=7 

60=< 

61== 

62=> 

63=? 

68=“ 

69=“ 

70=- 

71=1 

76=L 

77=\ 

78=/ 

79=r 

84=1 

85= / 

86=X 

87=0 

92=1 

93=1 

94=rr 

95=^ 

100=_ 

101=1 

102=1 

103= 1 

108=. 

109= L 

110=1 

111=- 

116=1 

117=1 

118= 1 

119=“ 

124=* 

125= J 

126=* 

127=% 


Figura 2 


Per esempio il comando 


POKE 1024,83 

farà comparire il cuoricino nell’angolo superiore sinistro dello schermo, 
mentre 


POKE 1025,211 

farà comparire il cuoricino in reverse (83 + 128 = 211) nella casella im¬ 
mediatamente successiva. Questo metodo per stampare i caratteri sul vi¬ 
deo può all’inizio sembrare macchinoso, ma è estremamente utile per 
realizzare programmi che prevedano il tracciamento di grafici. 

In un’altra regione della memoria esistono altri indirizzi che immagazzi¬ 
nano il colore con cui deve essere visualizzato il carattere in ciascun qua¬ 
dratino dello schermo. 

Questi indirizzi vanno dal 55296 al 56295 e sono ripartiti in 25 righe e 40 
colonne con lo stesso criterio visto per i caratteri. 

I colori possono essere scelti con il comando 

POKE n,c 

dove n è il numero corrispondente al quadratino cui ci si vuole riferire, e 
c uno dei 16 colori disponibili nel Commodore 64, con il criterio seguen¬ 
te: 
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0 

= 

nero 

8 

= 

arancio 

1 

- 

bianco 

9 

= 

marrone 

2 

= 

rosso 

10 

= 

rosa 

3 

= 

ciano 

11 

= 

grigio 1 

4 

= 

viola 

12 

= 

grigio 2 

5 

= 

verde 

13 

= 

verde chiaro 

6 

= 

blu 

14 

= 

celeste 

7 

= 

giallo 

15 

= 

grigio 3 


Quindi per ogni casella dello schermo esistono due indirizzi di memoria: 
uno (1024-2023) per stabilire quale carattere deve apparire, ed un altro 
(55296-56295) per stabilirne il colore. 

Per esempio, con il comando 

POKE 55296,2 

il cuoricino nell’angolo superiore sinistro dello schermo diverrà rosso, 
mentre con il comando 


POKE 55297,5 

lo sfondo del cuoricino in reverse diventerà verde. 

Talvolta per brevità si può omettere la POKE del colore (ed è ciò che fa¬ 
remo nel presente capitolo): il carattere apparirà celeste su fondo blu. 
Può avvenire, se per esempio si è cambiato il colore dello sfondo, che il 
carattere non sia visibile perché del suo stesso colore: in tal caso è suffi¬ 
ciente posizionarsi con il cursore sul carattere per rendersi conto se sia 
effettivamente nel posto giusto. 

I colori dello sfondo e della cornice possono essere modificati a piacere 
con i comandi: 


POKE 53280,c per la cornice 

POKE 53281,c per lo sfondo 

dove c è uno dei sedici colori visti precedentemente. 

Proseguiamo ora il discorso della grafica con le POKE tralasciando le 
POKE del colore (55296-56295) e occupiamoci soltanto di quelle dei ca¬ 
ratteri (1024-2023). 

Prendiamo in considerazione una casella qualsiasi, per esempio la 1523 
che si trova all’incirca in mezzo allo schermo, e battiamo sul C-64 il ci¬ 
clo seguente 


10 FOR K = 0 TO 39 
20 POKE 1523 +K,42 
30 NEXT K 
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Sul video compariranno, a partire dalla casella 1523, quaranta asterischi 
allineati che procedono verso destra. 

Alla fine della riga la serie di asterischi si interrompe e riprende all’inizio 
della riga successiva (figura 3). 

Sostituendo la linea 20 con 

20 POKE 1523-K,42 

si ottiene una serie di asterischi che partono dalla stessa casella, ma pro¬ 
cedono in verso contrario (figura 4). 

Proviamo ora a battere il ciclo 

10 FOR K = 0 TO 12 
20 POKE 1523 + 40*K,42 
30 NEXT K 

Ogni volta che K viene incrementato di una unità, l’indirizzo aumenta di 
40 e quindi gli asterischi procederanno verso il basso lungo la stessa co¬ 
lonna (figura 5). 

Contrariamente a quanto avveniva per gli spostamenti orizzontali, se K 
aumentasse oltre il valore 12 gli asterischi non continuerebbero a scorre¬ 
re lungo la colonna adiacente. 
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Figura 6 


Per l’uso che faremo delle “poke grafiche” dovremo quindi fare atten¬ 
zione a non superare gli indirizzi che compaiono nella figura 1. 

Infine, con il ciclo 


10 FOR K = 0 TO 12 
20 POKE 1523-40*K 
30 NEXT K 

si avrà una colonna di asterischi che procede verso l’alto lungo una stes¬ 
sa colonna. 


TRACCIAMENTO ASSI CARTESIANI 


Come semplice applicazione iniziale proviamo a battere il programmino 
seguente. 


10000 REM LISTATO 1 

10010 REM TRACCIAMENTO ASSI CARTESIANI 
10020 P0KE53281,3 
10022 POKE532S0,10 
10024 PRINT"33" 
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10030 F OR K=010399 
10040 POKE1024+K,46 
10050 NEXT K 
10060 FQRK=0TO24 
10070 POKE1043+40#K.115 
10080 NEXTK 
10090 FORK=0TO39 
10100 POKE1504+K,114 
1O110 NEXTK. 

10120 POKE1523,91 
10130 POKE1041,25 
10140 POKE1623,24 
10150 GOTO10150 


Dopo la sistemazione dei colori dello schermo, nelle linee 10030-10050 
vengono fatti stampare mille punti consecutivi che riempiono tutto il vi¬ 
deo e che costituiscono una specie di “quadrettamento” dello schermo. 
Le linee 10060 e 10110 tracciano i due assi coordinati, mentre le linee 
10120-10140 stampano rispettivamente l’incrocio dei due assi, e i nomi Y 
e X di ciascun asse. 

La linea 10150 è un artificio che impedisce al C-64 di stampare il REA¬ 
DY alla fine del programma, finché non viene premuto il tasto STOP. 


NUMERI FRAZIONARI 


Sospendiamo un attimo il discorso sulle poke grafiche ed elaboriamo 
una piccola routine che ci permetta di trasformare un numero razionale 
sotto forma di frazione con numeratore e denominatore interi. 

Per esempio 


3.24 = 


324 

100 


il 

25 


Ci servirà in seguito per alcuni programmi, ed è utile dal punto di vista 
didattico perché gli studenti sono abituati a mettere i risultati algebrici 
appunto sotto questa forma. 

Battete il seguente listato 


10 REM LISTBTO 2 

20 REM TRASFORMAZIONE IN FRAZIONE 
30 POKE53281,3 
40 POKE53280,10 
50 PRINT'TTi" 

60 INPUT“SBATTI UN NUMERO DECIMALE",-N 
70 GOSUB2O000 

80 PRINT"SCORRISPONDE A "N'V'D 
90 GOTO60 

20000 REM SUBROUTIHE DI TRASFORMAZIONE 
20010 K=0 
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28020 K=K+1 

20030 T=N#K : IFT-IN7XTX. 00001THEN20070 
20040 IFK=100THEHPRINT"SUN MOMENTO..." 
20050 IFK>300THEHD=1 :RETURN 
20O60 GOTO20020 
20070 N=N*K:D=K:RETURN 


Le linee fino alla 60 non hanno bisogno di particolari commenti. La su¬ 
broutine 20000 esegue la trasformazione richiesta. 

Dopo aver azzerato la variabile K, in 20020 è posto un contatore 
K = K + 1, che ad ogni passaggio aumenta di una unità. Viene anche 
istituita la nuova variabile T moltiplicando N per K. 

A questo punto viene presa in esame la differenza tra T e la sua parte 
intera. 

Se per esempio K = 3 ed N = 3.2 allora T = 9.6 e la parte intera di T è 
uguale a 9: la differenza è .6 e il programma salta la condizione posta 
nella linea 20030. 

Alla linea 20060 si ha un ritorno indietro fino a quando T e INT(T) risul¬ 
tano uguali: in questo caso K è il multiplo che rende intero N e si ha 
l’uscita alla linea 20070 dove N e D assumono il significato di numerato¬ 
re e denominatore della frazione finale. 

Invece della condizione 

IF T-INT(T) = 0 THEN . 

è necessario usare la condizione 

1F T-INT(T) >.00001 THEN . 

perché i calcolatori talvolta presentano piccole imprecisioni sulle ultime 
cifre decimali. 

La linea 20050 è un’uscita necessaria per interrompere il loop quando K 
supera 300 (valore fissato ad arbitrio). 

La linea 20040 ha l’unico scopo di avvertire l’operatore che il calcolatore 
sta ricercando la frazione. 

Nel caso in cui si voglia utilizzare questa subroutine in programmi più 
complessi, dove il numero decimale in entrata è il risultato di un calcolo, 
e quindi può contenere diverse cifre decimali, o essere addirittura irra¬ 
zionale, può essere utile limitare il numero di cifre decimali prima 
dell’uscita alla linea 20050 modificando la stessa nel modo seguente: 


20050 IF K >300 THEN N = INT(N*100 + .5)/100: D = 1 : RETURN 
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TRACCIAMENTO DI UNA RETTA 


Riprendiamo ora la parte grafica ed occupiamoci di una subroutine che 
tracci sullo schermo una retta la cui equazione sia nella forma 


y = mx + q 


La posizione degli assi coordinati sarà ovviamente quella fissata nella 
prima routine. I coefficienti m e q rappresentano rispettivamente il coef¬ 
ficiente angolare della retta e il termine noto. 


10 REM LISTATO 3 
20 REM TRACCIAMENTO RETTA 
30 POKE53281,3 
40 POKE53280,10 
50 PRINT"3S" 

60 INPUT " STOEFFI CI ENTE ANGOLARE " M 

70 INPUT"HTERMINE NOTO";Q 

SO PRINT"J":GOSUB30O00 

90 I NPUT " ANCORA " Ri 

100 IFLEFTi'JRi, 1 > = "S"THENRUN 

110 END 

30000 REM SUBROUT1NE 
30018 FORK=0TO39 
30015 X=K-19 
30020 V=Mi4fX+Q :V=INT<V> 

30030 IFV>120RVC-12THEN30050 
30040 POKE1544+K-V*40.42 
30050 NEXTK 
30060 RETURN 


In 60 e 70 vengono introdotti nel Commodore 64 i valori di m e q, e le 
linee 80 e 90 non hanno bisogno di ulteriori spiegazioni. Si noti che la 
100 permette di accettare sia la risposta SI per esteso che semplicemente 
la S (perché viene considerata solo la prima lettera). 

In 30010 viene istituito un ciclo FOR NEXT con K che varia da 0 a 39, e 
viene introdotta una nuova variabile X che varia da -19 a +20, e tali 
valori rappresentano le ascisse dei punti che compariranno sullo scher¬ 
mo. 

In 30020 viene ogni volta (per ciascun valore di K e quindi di X) calcola¬ 
ta la corrispondente ordinata. 

Essa può essere positiva o negativa, e si noti che viene trasformata in 
valore numerico intero. Quando tale ordinata è maggiore di 12 o minore 
di -12, non potendo essere rappresentata sullo schermo (vedi listati rela¬ 
tivi alle figure 5 e 6), la linea 30030 impone un salto che evita la stampa 
del punto della retta. 

La linea 30040 stampa un asterisco in corrispondenza del punto della 
retta. 
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L’indirizzo di memoria iniziale (1544) corrisponde al primo punto a sini¬ 
stra dell’asse delle ascisse. Ad ogni scatto unitario di K viene presa in 
considerazione la casella delle ascisse immediatamente successiva, e al 
valore cosi ottenuto viene tolta la quantità (Y*40) se la Y è positiva (in¬ 
fatti se l’ordinata è positiva l’asterisco si deve spostare verso l’alto in di¬ 
rezione verticale). Invece viene aggiunta la quantità (Y*40) se la Y è ne¬ 
gativa (e l’asterisco si sposta in verticale verso il basso). 

Quando K ha raggiunto il suo valore massimo si ha il RETURN. 

Si noti che il programma non permette di tracciare rette verticali perché 
m non può assumere valore infinito, mentre non c’è alcun impedimento 
a tracciare rette orizzontali ponendo m = 0. 


RETTE NEL PIANO CARTESIANO 


Applichiamo le semplici routine precedenti al primo programma comple¬ 
to del volume. 

Per questo e per i successivi si tenga presente che talvolta sarebbe possi¬ 
bile ottenere gli stessi risultati con variazioni al listato che permettereb¬ 
bero un certo risparmio di memoria o una esecuzione più rapida, ma ho 
preferito quasi sempre adottare procedimenti che risultassero maggior¬ 
mente chiari per il lettore alle prime armi. 


100 REM COPYRIGHT IN BASIC 
110 REM VIA SE2ZE 22 LATINA 
120 REM TEL 487631 

130 CLR : POKE53280,10 : P0KE53281,3 : PRINT"US" 

140 PRINTTABe?)"INETTE NEL PIANO CARTESIANO™" 

150 PRINT"*» QUESTO PROGRAMMA TI PERMETTE DI" 
160 PRINT"OTTENERE L'EQUAZIONE DI UNA RETTA" 
170 PRINT"CONOSCENDO LE COORDINATE DI DUE SUOI" 
180 PRINT"PUNTI,ED INFINE TI MOSTRERÀ' IL GRAFICO" 
190 PRINT"DELLA RETTA." 

200 PRINTTABdi)"*M*KPREMI UN TASTO)" 

210 GETR$:IFR$=""THEN218 

220 FRINT"SCOORDINATE PRIMO PUNTO =" 

230 INPUT"»<=";X1 

240 INPUT"Wi'=";Y1 

250 FRINT"«SECONDO PUNTO 

260 INPUT"®<=",X2 

270 INPUT"MY=";Y2 

280 IFX1=X2ANBV1=Y2THEN220 

290 I FX 1OX2THEN320 

300 PRINT"LA RETTA E' VERTICALE" 

310 GOTO5000 

320 IFV1OV2THEN350 

330 PRINT"LA RETTA E' ORIZZONTALE" 

340 GOTO5000 

350 D=SQR<(X2-X1) 12+<Y2-V1)12) : N=D 
360 GOSUB20000 

370 PRINT"MILA DISTANZA FRA I DUE PUNTI E' :" 

380 PRINTTAB<10)":«0"NV"B 
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390 REM CALCOLO DELL'EQUAZIONE 
400 M=<Y2-Y1>X(X2-X1>:Q=Y1-(M*X1> 

410 M*=INTCM#100+.5V100:Q=INT(G*100+.5V100 
420 PRINT" KL' EQUAZIONE DELLA RETTA £' ■" 

430 IFSON < Q)<0THEN450 

440 PRINTTAB<5) "Mi 1 ="M" X + "QGOTO460 

450 PRINTTAB<5>"MY ="M" X "Q 

460 INPUT "MMMJOI IL GRAFICO";Rt 

470 IFLEFT*(R$, 1)="S"THENGOSUB10000 : GOSUB30000 

5000 REM RICHIESTA DI PROSEGUIMENTO 

5010 input" rmw/uoi continurre m ;r* 

5020 IFLEFT$ < R* <1)="S"THENRUN 

5030 PRINT"M0K - CIAO ! ! " : END 

10000 REM TRACCIAMENTO ASSI CARTESIANI 

10010 PRINT'TJ" : FORK=0TO999 

10020 POKE1024+K i 46 : NEXTK 

10030 FORK=0TO24 

10040 POKE 1043+40#K/ 115 

10050 NEXTK 

10060 FORK=0TO39 

10070 POKE1504+K,114 

10080 NEXTK 

10090 POKE1523>91 

10100 POK.E1041 / 25 

10110 POKE1623/24 

10120 RETURN 

20000 REM TRASF. IN FRAZIONE 
20010 K=0 
20020 K=K+1 

20030 T»N*Ki IFT-INT<TK. 00001THEN20070 
20040 IFK=100THENPRINT"WUN MOMENTO..." 

20050 IFK>300THEND=1 ; N=INTCN#100+.5>/100 : RETURN 

20060 GOTO20020 

20070 N=N#K:D=K: RETURN 

30000 REM TRACCIAMENTO RETTA 

30010 FORK=0TO39 

30020 X=K-19 

3O030 V=M#X+Q : V*INT < V) 

30040 IFV>120RV<-12THEN30060 
30050 POKE 1544+K-V*i40 / 42 
30060 NEXTK 

30070 FORK=1TO5000 : NEXTK 
30080 RETURN 


Fino alla linea 270 non occorrono molte spiegazioni: un CLR azzera tut¬ 
te le variabili, viene cancellato il video, appare il titolo del programma e 
un breve commento esplicativo. 

In 200 il programma si ferma in attesa che venga premuto un tasto, e 
poi devono essere battute sulla tastiera le coordinate di due punti della 
retta. 

In 280, 300, 330 vengono selezionati i casi in cui la retta è indetermina¬ 
ta, orizzontale o verticale e, quando una delle tre situazioni si verifica, si 
ha un salto alla parte finale del programma (senza esecuzione del grafi¬ 
co). 

In realtà il grafico della retta orizzontale potrebbe essere eseguito senza 
difficoltà e, con una semplice modifica, si potrebbe tracciare anche la 



LA GRAFICA A BASSA RISOLUZIONE 


19 


retta verticale, ma ho preferito considerare banali questi due casi e ren¬ 
dere esecutivo il grafico solo quando la retta non è parallela agli assi 
coordinati. 

In 350 viene calcolata la distanza fra i due punti che individuano la ret¬ 
ta; tale distanza (D) viene posta uguale ad N e inviata alla subroutine 
20000 che la trasforma in frazione decimale (se il denominatore è minore 
di 300, altrimenti restituisce il numero con la virgola, e due cifre decima¬ 
li). Le linee 370 e 380 stampano il risultato della distanza. 
Successivamente si passa al calcolo dei coefficienti m e q dell’equazione 
della retta in forma esplicita (linea 400). 

Si noti che nel calcolo di m sarebbe necessario prevedere ed impedire che 
il denominatore x 2 -x,, possa assumere il valore zero, altrimenti il pro¬ 
gramma si fermerebbe segnalando un errore a causa della divisione per 
zero. 

Avendo però già eliminata la trattazione delle rette verticali (linea 300), 
tale precauzione è inutile. 

In 410 i valori di m e q vengono limitati a due cifre decimali. 

In 440 o 450 viene stampata l’equazione della retta in forma esplicita a 
seconda del segno del termine noto, verificato nella linea 430. 

Dalla linea 5000 in poi c’è la richiesta di proseguimento. 

Le subroutine 10000, 20000, 30000, sono quelle già viste per il traccia¬ 
mento degli assi cartesiani, per la trasformazione di un numero decimale 
in frazione, e per il tracciamento della retta. 

Nella linea 30070 è stato inserito un ciclo di ritardo sufficientemente lun¬ 
go per dare il tempo all’operatore di osservare la retta prima della ri¬ 
chiesta di proseguimento. 


INTERSEZIONI FRA RETTE 


È un arricchimento del precedente ed offre la possibilità di trattare e 
tracciare contemporaneamente due rette, dopo aver calcolato il loro 
punto di intersezione. 


10 REM COPYRIGHT IN BASIC 
15 REM VIA SEZZE 22 LATINA 
18 REM TEL. 487*31 


29 
25 

30 
40 
50 
60 
7tì 
80 
90 


PEI NT” ."E" 

POKE53280,10 :P0KE53281 ,3 

P R J NTTAB<!9) "MHsWINTERSE2IONI FRA RETTE3” 

PRINT"HU&UEST0 PROGRAMMA TI PERMETTE IH OTTFNFPF" 
RAZIONI DI DUE RETTE DI i^lSlarP 

pptMTM-7 T' NF|TE DEL L0R0 PUNTO DI INTER-" 
FRINÌ oE<l IUNE > ED INFINE TI MOSTPFPft' - ti •* 
PRINT"GRAFICO DELLE DUE RETTE " IL 

PRINTTAB( 12>"JffllMK PREMI IJN TASTO)" 
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100 GETfl* : IFflt="“THEN100 
110 CLR 

12tì PRINT".T:FORJ*1T02 
130 PRINT"MS"J“ir RETTA"" 

140 PRINT"MDAMMI LE COORDINATE DEL PRIMO PUNTO : " 

150 INPUT"»<1=";X1<J> 

160 INPUT"V1 = "; V1(J > 

170 F’RINT":«£E QUELLE DEL SECONDO PUNTO:" 

180 INPUT"KX2=";X2U> 

190 INPUT"V2=";V2<J) 

200 NEXTJ 

210 PRINT'TJjK - UN ATTIMO DI PAZIENZA!" 

220 FQRJ=1T02 

225 REM-FLAGS PER RETTE ORIZZONTALI E VERTICALI 

230 IFX1 < J > =X2< J > THENFV ( J > = 1 •' PRI NT " *LA " J"■ RETTA E " VERTICALE" 

240 IFV1<J>=V2<J)THENFO <J > = 1= PRINT" SLA "J"’ RETTA E' ORIZZOHTALE" 
250 REM-CALCOLO DELLE M E Q 

260 IFFV<J> =0THENM< J) = <V2<J>-YKJ>>/<X2< J>-X1 ( J) > 

270 IFFV<J> =0THENG<J> =V 1 (J)-<M (.J >*X 1<J)> 

280 NEXTJ 

290 REM-VERIFICA DI PARALLELISMO 0 PERPENDICOLARITA' 

295 IFFV<1> = 1ORFO<1>=1ORFV<2> = 1ORFO ( 2)=1THEN1008 

300 IFMa)=M < 2)THENPRINT"SLE RETTE SONO PARALLELE FRA LORO":GOTO390 
310 IFM( 1 ;■ =-1 /M(2;■THENPRINT"SLE RETTE SONO PERPENDICOLARI FRA LORO" 
320 REM-CALCOLO DELL"INTERSEZIONE 
330 XX= <Q<2)-Q(1>>/(MCI)-M<2)) 

340 V't-M ( 1 > *XX+Q C1 > 

350 N=XX:GOSUE20000:XN=N:XD=D 
360 N=VV:GOSUB20000:VN=N : VD=D 
370 PRINT":a_E RETTE SI INCONTRANO IN" 

380 PR INTTAB < 5 ) " SftF - ( " XN " / " XD " ; " VN " / " VD 
390 REM-CALCOLO DELLE EQUAZIONI 
400 F0RJ=1T02 

410 N=M(J >:GOSUB20000:NMCJ >=N: DM < J >=D 
420 N=Q<J >:GOSUB20000:NQ <J > =N:DQ <J)=D 
440 PRINT"SL-'EQUAZIONE DELLA "J"* RETTA E':" 

450 P*="": IFSGNCQC J>)=+1ORQ< J> =0THENP$="+" 

460 PRINTTAB<7>""NM(J)"/"DM(J>"X"P$NQ<J>"/"DQ<J) 

470 NEXTJ 

480 INPUT "mini IL GRAFICO "Ri 
490 IFLEFTSCR*,1)="S"THENGOSUB10000 
495 IFLEFT$(P$,1)<>"S"THEN520 
500 M=M(1>:Q=Q<1):GOSUB30000 
510 M=M< 2) : Q=Q < 2) : F®1 :GOSUB30000 
520 INPUT"STVUOI PROVARE ANCORA" ; Rt 
530 IFLEFT t< R*,1)=»S"THEN110 
540 PRINT'LTDK - CIAO!" 

550 END 

1000 REM-USCITA SE UNA RETTA E" PARALLELA AD UN ASSE 
1010 PRINT "SIBANALE ! UNA RETTA E"' PARALLELA AD UNO" 

1020 PRINT"DEGLI ASSI COORDINATI." 

1030 PRINT'LSPER FAVORE IMPEGNAMI CON QUALCOSA DI" 

1040 PR I NT " PIIJ ' SERIO!!": GOTO520 
10000 REM-TRACCIAMENTO ASSI CARTESIANI 
10010 PRINT"3":F0RK=@T0999 : POKE1024+K,46 :NEXTK 
10020 FORK=0TO24 : POKE 1043+40*K ..115: NEXTK 
!0030 FORK=0TO39 : POKE1504+K.114 :NEXTK 
10040 POKE1523,91 :POKE1041,25 :POKE1623,24 
10050 RETURN 

20000 REM-TRASFORMAZIONE IN FRAZIONE 
20010 K=0 

20020 K=K+1 :T=N*K: IFT-1NT<T)<.00001THEN20060 
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20040 IFK<100THEN2U020 

20050 H=1 :N=INT <T*100+.5 >/1 00 : RETURN 

20060 N=INT<T) : B=K ; RETURN 

30000 REM-TRflCCIOMENTO RETTR 

30010 FORK=@T039 : X*K-19 

30020 V=INT i M#X+Q> 

30030 IFV>120RVC-12THEN30050 

30040 POKL1544+K-V*40,42 

30050 NEXTK 

30055 IFF=0THEN30080 

30060 GETTI t : IFhf=""THEN30060 

30070 FRI NT "23" 

30080 RETURN 


Fino alla linea 100 c’è il solito preambolo esplicativo e in 110 un CLR 
che azzera tutte le variabili. 

Da 120 a 200 viene istituito un ciclo FOR NEXT per introdurre le coordi¬ 
nate di due punti per ciascuna delle due rette (la variabile è J per evitare 
confusioni con i cicli FOR NEXT delle subroutine che utilizzano la varia¬ 
bile K). 

Nella subroutine 20000, poiché dovrà essere utilizzata diverse volte, è 
stato ridotto da 300 a 100 (linea 20040) il valore massimo oltre il quale il 
Commodore 64 rinuncia alla trasformazione in frazione. 

Così i tempi di esecuzione sono più brevi, ed è possibile eliminare l’av¬ 
vertimento intermedio 


UN MOMENTO. 

che verrebbe ripetuto quasi ogni volta che venisse utilizzata la subroutine 
in questione. 

In compenso è stata introdotta la linea 210. Da 225 a 240 vengono isti¬ 
tuiti due flag' per ciascuna delle due rette per riconoscere quando esse 
sono parallele agli assi coordinati. 

Nelle linee 250, 260, 270 vengono calcolati i valori di m (se la retta in 
questione non è verticale) e di q. 

Quindi, in 280 si chiude il ciclo iniziato in 220. Nella 290 inizia la verifi¬ 
ca di parallelismo o perpendicolarità. 

Se una delle rette è orizzontale o verticale si ha un salto alla linea 1000 
dove, dopo un breve commento, si torna alla 520 per la richiesta di un 
nuovo problema. 

Nella 300 viene verificato il parallelismo e, in caso affermativo, viene 
saltato il calcolo del punto di intersezione. 

In 310 infine viene verificata (o meno) la perpendicolarità. 


Un flag è una variabile usata come “segnale”: in corrispondenza di due (o più) situazioni, 
il suo valore viene posto per esempio uguale a 0 o ad 1. Nel seguito del programma, a se¬ 
conda del valore del flag si avrà o meno un salto condizionato. 
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Infine in 320 inizia il calcolo delle coordinate del punto di intersezione. 
Dopo averle individuate, esse vengono trasformate in frazione (se possi¬ 
bile), e si ha la stampa del risultato. 

In 390 inizia il calcolo delle equazioni (uguale a quello del programma 
precedente), inserito in un ciclo FOR NEXT che termina alla linea 470. 
Finalmente si arriva al grafico che viene eseguito col solito procedimen¬ 
to. 

Si noti alla fine della subroutine 30000 la piccola modifica finale: nella 
linea 500 si ricorre alla subroutine 30000 e poiché la variabile F non è 
mai stata finora usata, essa ha valore zero. Quando il Commodore 64 
arriva alla linea 30055 (cioè dopo aver tracciato la prima retta) è costret¬ 
to a saltare le linee 30060 e 30070 rispettivamente di attesa e di cancella¬ 
zione dello schermo. Si ha perciò un RETURN ed un passaggio alla linea 
510. Qui la variabile F (che è dunque un flag) viene posta uguale ad 1, e 
perciò quando il Commodore 64 ha tracciato la seconda retta la linea 
30055 viene ignorata ed esso rimarrà in attesa che l’operatore prema un 
tasto, dopo di che cancellerà lo schermo e proporrà la continuazione o 
meno del programma. 


PARABOLA E RETTA 


10 REM COPYRIGHT IN BASIC 
15 REM VIA SE22E 22 LATINA 
18 REM TEL. 487631 
20 CLR : PRINT'TXS" 

23 POKE53280,10:P0KE53281,3 
25 BB=55296 : TV=1024 

30 PRINTTABé 10)"^PARABOLA E RETTA3" 

40 PRINT"M« QUESTO PROGRAMMA CALCOLA IL VERTICE DI" 

50 PEINT"UNA PARABOLA DEL TIPO:" 

60 PRINTTAB< 15)"KE" 

70 PRINTTABC11)"V=AX +BX+C" 

80 PRINVILE SUE INTERSE2I0NI CON GLI ASSI , E LE" 

90 PRINT"EVENTUALI INTERSE2I0NI CON UNA RETTA" 

100 PRINT"NELLA FORMA :" 

110 PRINTTABC13)"WV=MX+Q" 

120 PRINT"JOINFINE ESEGUIRÀ" IL GRAFICO SIA DELLA" 

130 PRINT"PARAB0LA CHE DELLA RETTA." 

140 GOSUB5000 

150 PRINVT3BAMMI IL VALORE DEI COEFFICIENTI DELLA" 

160 PRINT"PARABOLA :" 

170 INPUT"MA=",A 

175 IFA=0THENPRINT" ^PARABOLA DEGENERE! NON FARE LO SCIOCCO ! " :GOTO170 
180 INPUT "JOB*" > B 
190 INPUT"MD=";C 

200 PR INVIDIE QUELLI DELLA RETTA:" 

210 INPUT "MI*"; M 
220 INPUT"WQ=";Q 

230 PRINVTOK - UN ATTIMO DI PA2IEN2A!" 

240 REM CALCOLO VERTICE 
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250 VX=-BA2*A> : VY=-< <B*B>-<4*A#C> >A4#A> 

260 H=VX:GQSUB20000: V1=N:V2=D 
270 H=VV^ GOSUB20000:V3=N:V4=D 

230 PRINT"«IL VERTICE DELLA PARABOLA HR COORDINATE" 

290 PRINTTRB < 8 ) " WV=< " V1 V " V2 " ; " V3 " / " V4 “ ) " 

300 REM CALCOLO INTERSEZIONI ASSI 
310 D=B •*2-<: 4*R*C > 

320 IFB<0THEHPRINT"*NON TAGLIA L'ASSE X":GOTO370 
330 X1=<-B-SQR<D)>A2#A>:X2=<-B+SGR<B>)A2*A> 

332 N=X1:GOSUE20000:X3=N:X4=D 
334 N=X2 : GOSUB20000 : X5=N : X6=D 

340 IFX1=X2THENPRINT"SE' TANG.ALL'ASSE X IN X="X3'V"X4:GOTO370 
350 PRINTESTAGLIA L'ASSE X NEI PUNTI : " 

360 PRINT"W<"X3VX4";0)"SPC<5>"<"X5"/"X6"J0>" 

370 PRINT"STAGLIA L'ASSE V NEL PUNTO'" 

380 PRINTTAB(10)"M<0;"C">" 

390 GOSUB5000 

400 PRINT".RINCORA UN PO' DI PAZIENZA!" 

495 REM-RICERCA INTERSEZIONI PAR.-RETTA 
410 DD= < B-M > T2-4*A* <C-Q > 

420 IFDD<0THENPRINT"ERETTA E PARABOLA NON SI INCONTRANO":GOTO520 
430 IFDD=0THENGOSUB6000:GOTO520 

440 DD=SQR(DD> : N1 = <M-B-DD> A2#A>:N=N1:GOSUB20000: 11=N:I2=D 

450 N2= < M-B+DD)/< 2#A):N=N2:GOSUB20000:I3=N:I4=D 

460 N3=<M#N1)+Q:N=N3:GOSUB20000:I5=N:I6=D 

470 N4=<M#N2>+Q:N=N4:GOSUB20000:I7=N:I8=D 

480 PRINT"M_E INTERSEZIONI FRA PARABOLA E RETTA" 

490 PRINT"HANNO COORDINATE : " 

500 PRINTTAB <5)" HF 1 = <"11 " V" 12";"15" /" 16")" 

510 PRINTTAB<5)"MP2=<"I3‘V" 14"; 11 17"X" 18")" 

520 INPUT"SVUOI IL GRAFICO",Rt 

530 IFLEFTìCR$, 1 > = "S"THENGOSUB 10000 : GOSUB30000 • GOSUE40000 

540 GETA$ : IFA$=""THEN540 

550 INPUT" 17VUQI PROVARE ANCORA";R$ 

560 IFLEFT*<R$,1)*"S"THENRUN 
570 PRINT"M0K - CIAO!" 

530 END 

5000 REM-SUBROUTINE D'ATTESA 
5010 PRINTTAB(12)"M<PREMI UN TASTOV 
5020 GETA$ : IFA$=""THEN5020 
5030 RETURN 

6000 REM-CALCOLO TANGENZA 

6010 PRINT"IFETTA E PARABOLA SONO TANGENTI IN:" 

6020 TXAM-B V<2*A> : N=TX : GOSUB20000 : T1=N : T2=B 
6030 TV=M*TX+Q:N=TV:GOSUB20000:T3=N:T4=D 
6040 PRINTTABU 0)"WT=<"T1"T2";"T3"T4")" 

6050 RETURN 

10000 REM-TRACCIAM.QUADRO 

10010 PRINT"23"•FORK=0TO999:POKEBB+K,5 :POKETV+K,46 :NEXTK 
10020 FORK=0TO24:POKEBB+19+40*K,2 :POKETV+19+40*K,115 : NEXTK 
10030 FORK=0TO39:POKEBB+480+K,2 :POKETV+480+K,114 :NEXTK 
10040 F’OKEBB+499>2 :PQKETV+499,91 :POKEBB+17,0 :POKETV+17,25 
10045 POKEBB+599,0 :POKETV+599,24 
10050 RETURN 

20000 REM-TRASFORMAZIONE IN FRAZIONE 
20010 K=0 

20020 K=K+1 T=N*K: IFT-INT(TX. 0001THEN20060 

20040 IFK<50THEN20020 

20050 D=1 :N=INTCN#100+.5 >/l00 : RETURN 

20060 N=N*K:D=K: RETURN 

30000 REM-TRACCIAM.RETTA 

30010 FORK=0TO39:X=K-19 
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30020 V=INT<M*X+Q> 

30030 IFV>120RVC-12THEN30050 
30035 POKEBB+480+K-(V*40>,6 
30040 PQKETV+480+K- < V*40) ,42 
30050 NEXTK 
30060 RETURN 

40000 REM-TRflCCIfiM. PFlRfiBOLH 
40010 FORK=0TO39 : X=K-19 
40020 V=INT <fi*X T2+B#X+C> 
40030 IFV>120RV<-12THEH40050 
40035 POKEBB+480+K-<V*40),6 
40040 POKETV+480+K-<:V*40>, 42 
40050 NEXTK 
40060 RETURN 


Fino alla linea 230 viene descritto cosa fa il programma, e sono richiesti 
i coefficienti a, b e c di una parabola del tipo 


y = ax 2 + bx + c 


e i coefficienti m e q di una retta nella forma 


y = mx + q 


In 175 viene eliminato il caso in cui a = 0 (che causerebbe in seguito 
una divisione per zero), con la richiesta di un nuovo valore. Si ha poi il 
calcolo del vertice della parabola, e le coordinate VX e VY vengono rese 
frazionarie (per mezzo della solita subroutine 20000) e trasformate in 

VI V3 
V2 6 V4 

In 310 viene calcolato il discriminante D del secondo membro dell’equa¬ 
zione della parabola. Poi, se D è negativo (e quindi la parabola non ta¬ 
glia l’asse x), si ha un salto in 370 dove si passa al calcolo dell’interse¬ 
zione con l’asse y. 

In 330 si determinano le ascisse XI e X2 dei due punti di intersezione 
della parabola con l’asse x, e nelle due linee successive esse vengono ri¬ 
spettivamente trasformate nella forma frazionaria X3/X4 e X5/X6. 

In 340, se XI = X2 (e quindi la parabola è tangente all’asse x), si ha di 
nuovo un salto in 370. 

Nelle linee 350 e 360 viene dato l’ordine di stampare le coordinate dei 
due punti distinti di intersezione con l’asse x. 

In 370 e 380 si ha la stampa delle coordinate del punto di intersezione 
della parabola con l’asse y.' 


Esso ha coordinale (0;c), e non ho rilenuto necessario trasformare c in frazione dato che 
quasi sempre esso è già in forma intera (almeno nei normali esempi didattici). 
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Nella 400 inizia il calcolo dei punti di intersezione fra parabola e retta: 
DD è il discriminante dell’equazione di secondo grado in X che si ottiene 
confrontando i secondi membri delle equazioni della parabola e della 
retta. Se DD è negativo non si hanno intersezioni e si passa alla richiesta 
di esecuzione del grafico (linea 520). 

Se DD è nullo si ha tangenza fra parabola e retta, salto alla subroutine 
6000 per il calcolo del punto di tangenza (dove le coordinate vengono 
trasformate in frazione), e salto alla linea 520 per la esecuzione o meno 
del grafico. 

Se le prime due ipotesi non sono verificate, allora DD è sicuramente po¬ 
sitivo e in 440 DD viene trasformato nella radice quadrata di DD. Poi 
vengono calcolate le ascisse delle due intersezioni (NI e N2) che vengono 
immediatamente trasformate in frazioni. 

Infine (linee 460 e 470) sono calcolate le corrispondenti ordinate N3 ed 
N4, anch’esse sono trasformate in frazioni e sono stampati i risultati. 

Alla fine le solite subroutine già note, con l’introduzione della 40000 per 
tracciare la parabola dopo il tracciamento della retta 2 . 


2 Si sarebbe anche potuto usare soltanto la 30000 con un flag ( = 0 per la retta e = 1 per la 
parabola) e con uno sdoppiamento della linea 30040. 



CAPITOLO SECONDO _ 

La grafica ad alta risoluzione 


Ogni carattere che appare sullo schermo è costituito da una matrice di 8 
per 8 puntini o pixel opportunamente accesi o spenti (cioè le stesse di¬ 
mensioni del cursore lampeggiante). 

Abbiamo già visto che in condizioni normali lo schermo può contenere 
al massimo 1000 caratteri: ciò significa che usando più razionalmente i 
pixel che costituiscono lo schermo, abbiamo la possibilità di tracciare 
grafici utilizzando 1000x64 = 64000 punti. 

Dalla guida di riferimento della Commodore si può ricavare la seguente 
routine che permette di accedere alla grafica ad alta risoluzione, cioè alla 
possibilità di operare con tutti i 64000 punti precedenti. Provate a batte¬ 
re il seguente listato: 


1@0 BR=1@24*8 :P0KE53272,PEEK<53272 > 0P8 
110 P0KE53265,PEEK<53265>QR32 
120 F0RK=EPlTOBR+7999 •' P0KEK, 0 : NEXT 
130 F0RK=1024TO2023 : POKER,3 :NEXT 
140 V=1@0 :FORX=50TO270 
150 B=Bfl+320*INT <V/8 >+8*INT(X/8) + <VRND7) 
160 P0KEE ; F'EEK ( E ) 0R2 T<! 7- ( XRHD7 ) ) 

170 NEXT 

18@ GETRT: IFR$=""THEN180 
190 FRI NT "73" 

200 P0KE53265, F'EEK<53265)RND223 
210 P0KE53272,PEEK<53272>RNH247 
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Dando il RUN al programma vedrete lo schermo pieno di segni indeci¬ 
frabili, divenire tutto nero e poi colorarsi gradatamente in colore ciano. 
Successivamente verrà tracciato un segmento orizzontale al centro dello 
schermo, in alta risoluzione. 

A causa della linea 180 il programma si ferma in attesa che venga pre¬ 
muto un tasto: poi viene pulito lo schermo e ristabilite le condizioni ini¬ 
ziali. 

Cerchiamo di capire come è organizzata l’alta risoluzione nel Commodo¬ 
re 64. 

Ogni pixel dello schermo corrisponde a un bit (= 1 se acceso, = 0 se 
spento), e perciò un byte conterrà le informazioni riguardanti 8 pixel. Le 
informazioni relative a tutti i 64000 pixel dello schermo saranno quindi 
memorizzabili in 8000 byte, secondo lo schema illustrato nella figura 
precedente. 

L’alta risoluzione permette di operare in un rettangolo (di dimensioni 
320x200) con l’origine nell’angolo superiore sinistro. 

Tornando al listato, nella linea 100, viene indicata con BA la locazione 
di memoria a partire dalla quale verranno immagazzinati gli 8000 byte 
contenenti le informazioni sui 64000 pixel. La memoria dei caratteri da 
stampare sullo schermo viene quindi spostata alla locazione 8192. Le lo¬ 
cazioni 1024 - 2023 accoglieranno invece le informazioni riguardanti il 
colore. 

Nella linea 110 viene attivata l’alta risoluzione. 

In 120 vengono azzerati tutti gli 8000 byte della nuova memoria dei ca¬ 
ratteri, con una operazione analoga al CLEAR di schermo: infatti a que¬ 
sto punto vedremo lo schermo annerirsi gradualmente. 

In 130 vengono invece colorate in ciano le 1000 locazioni che regolano il 
colore dello schermo. Se si desidera colorare lo schermo con colore dif¬ 
ferente, basta cambiare il secondo argomento della POKE. 

Siamo ora in grado di operare con l’alta risoluzione. 

Supponiamo di voler accendere un unico pixel con coordinate X, Y: 

INT(Y/8) serve per determinare a quale delle 25 righe appartie¬ 

ne il pixel; 

INT(X/8) per determinare a quale delle 40 colonne appartiene il 

pixel; 

Y AND 7 per determinare a quale degli 8 byte (della matrice 

quadrata 8x8 bit) appartiene il pixel; 

7 - (X AND 7) per determinare a quale bit del byte appartiene il pi¬ 
xel. 

Battendo le linee 150 e 160 si otterrà l’accensione del pixel desiderato. 
Nella routine precedente è stato inserito un ciclo FOR NEXT con Y fissa 
e X variabile, in modo da tracciare un segmento orizzontale. 
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Le ultime linee 200 e 210 ripristinano le condizioni iniziali riattivando la 
bassa risoluzione. 

Dopo questa breve introduzione sulla grafica ad alta risoluzione, possia¬ 
mo elaborare un programma completo in grado di tracciare grafici di 
funzioni con risultati nettamente superiori a quelli ottenibili con i listati 
precedenti. 


100 REM COPYRIGHT IH BASIC 
105 REM VIA SEZZE 22 LATINA 
108 REM TEL. 487631 
110 CLR:PRIHT"D" 

120 FORK=0TQ1 :POKE53280+K, 3 :NEXT:PRINT"«“ 

130 U$="»mTTT’ 

140 F$="r*a ami a ialina a amia a amia s amia e 

150 G$="iiia ami ■ a «amia ■ amia a ai ami a a ami ■" 

I60 R$=";ia ami a a ami a a ami ami a lamia a a a" 

i ?0 A$="na ami a a ami a a ami ami a a ami a a a" 

180 i$="s»a ai ai ai ai ai 

190 c*="ita ami a amia a amia a amia a amia a" 

200 o*= ,, iia ami a a aliai a a ami a a ami a a ami a" 

210 u$= M 3a a a ami a a ami a a ami a a ami a a ami a" 

220 N$="ea a a ami ai a ami a a ami a a ami a :■* ami a a a" 

230 ZT="raa salili a aami a a ami a a amia a amia a" 
240 Bi*="a ai a aamna a a a a aamna a a a a aamna m a a" 

250 PR INTTAB < 4 ) Oftlf-RTUTA4WTFTWTI *W$C 
260 PR I NTTAB <17)" MA" Il I * 

270 PRI NTTAB<3) "MM"I *W$Q$W*N$U:f I $ 

280 PRINT"WKI PER ISTRUZIONI 0 UN TASTO QUALSIASI)" 

290 GETQ$ : IFQt=""THEN290 
300 IFQ$<>"I"THEN660 

310 PRINT"DQUANDO TE LO CHIEDERÒ'BATTI LA FUNZIONE" 

320 PRINT"TENENDO PRESENTE CHE L'INCOGNITA DEVE" 

330 PRINT"ESSERE SEMPRE LA " : F0RK=1T02000 : NEXT 
340 F0RK= 1T015 : PRINT" Si«!T*P" TAB <17 >" " : FORJ=1TO200 : NEXT 
350 PRINT"SWM"TAB<17)"X" : FORJ=1TO200 : NEXT:NEXT 
360 PRI NT "W SE LA X E' UN ANGOLO .. LA INTENDERÒ'" 

370 PRINT"ESPRESSA IN":F0RK=1TO2000 : NEXT 

380 FORIITO15 :PRINT"»«««»»"TRE(13>" " : FORJ=1TO200 : NEXT 

390 PR I NT " «IldMtìtì" TAB (13 ) " RAD IANTI" : F OR J = 1T0200 : NEXT : NEXT : PRI NT 
400 F0RK=1TO40•PRINT" ST." ; : NEXT•PRINT 
410 PRINT"SM QUANDO AVRÒ' FINITO IL GRAFICO..PREMI" 

420 PRINT"IL TASTO” : PRINTTAB<12>"SUR U N - S T 0 P" 

430 PRINT"IDRE DAI UN COLPETTO SECCO SUL TASTO" 

440 PRI NTTAB (1:0" SfP: E S T 0 R E" ; PRI NT 
450 F0RK= 1TO40 : PR I NT " DT." ; : NEXT : PRI NT 
460 PRI NTTAB < 11) "f<»( PREMI UH TASTO)" 

470 GETQt:IFQ$=""THEN470 

480 F'RINT"^ DOPO AVERMI DATO LA FUNZIONE..DOVRAI" 

490 PRINT"FISSARE LE ASCISSE (MINIMA E MASSIMA)" 

500 PRINT"ENTRO CUI VUOI VEDERE LA FUNZIONE." 

510 PRINT"» L'INTERVALLO SULLE ORDINATE E AUTO-" 

520 PPINT"MATIC0 : LE ESALTERÒ" 0 RIDURRÒ" IN MODO" 

530 PRINT"DA OTTENERE SEMPRE IL MIGLIOR GRAFICO" 

540 PRINT"P0SSIBILE." 

550 PRINT"» PERO'":F0RK=1TO5000 ; NEXT:PRINT 

560 F0RK=1T015 : PRINT"M»Mtì»W«!»!lW«"TAB< 10)" " : F0RJ = 1TO200, : NEXT 

570 PRINT"l«WMia«»WaaW"TAB( 10) "ATTENZIONE ! " : FORJ=1TO200 : NEXT : NEXT 
580 PRI NT "A NELL'-INTERVALLO CHE DEVO GRAFI CARE" 



30 


LA GRAFICA AD ALTA RISOLUZIONE 


590 PRINT"NON CI DEVONO ESSERE ASINTOTI VERTICALI" 

600 FRINT"M GLI ASSI CARTESIANI LI TRACCERO'" 

610 PRINT"AUTOMATICAMENTE NELLA POSIZIONE GIUSTA." 

620 PRINT"M SE NON LI VEDRAI VORRÀ" DIRE CHE ESSI" 

630 PRINT"NON RIENTRANO NEL CAMPO VISIBILE." 

640 PRINTTAB<9)"XUHKPREMI UN TASTO>" 

650 GETQt:IFQ$=""THEN650 

660 PRINT"SBATTI LA FUNZIONE 

670 INPUT"MtìMV = " ; Vi 

680 PRINT"35WKJ720 DEFFNFKX)="Y$ 

690 PRINT"00707203" 

700 PORE198,3 :F0RK=@T02 : P0KE631+K,13:NEXT 
71@ END 

720 DEFFNA<X>=Xt2*SIN<X> 

730 POKE198,0 :DIMV<320> 

740 PRINT"3 OR - ORA DIMMI LE ASCISSE MINIMA E" 

750 PRINT"MASSIMA CHE VUOI VEDERE SULLO SCHERMO." 

760 PRINTTAB< 15)"MIN = = INPUTX1 =X1 = INT<X1) 

770 PRI NTTAB < 15) "!SK MAX = " ; : INPUTX2 : X2= I NT < X2 ) 

780 IFX20X1THEN740 

790 PR I NTT AB < 9 ) " WttOJN ATT IMO DI F'AZ I ENZA ! " 

800 DX=<X2-X1>/320 
810 FORR=0TO319 
820 X=X1+K*DX 
830 V<K)=FNA<X) 

840 IFV <R> >MATHENMA=V<R> 

850 IFV <K> <MITHENMI=V<R) 

860 NEXT 

870 MA=INT(MA*10T3+.5 >/1013 
880 MI = INT<MI* 10T3+.5>/1013 
890 D'r - ( MA-M I > /200 
900 PRINT"3" 

910 IFX1 <>0ANDX2>=0THENAV= INT<320*X 1 / (. X1-X2>+. 5) : GOTO930 
920 FV=1 

930 IFMA>=0ANDMIO0THENAX=INT C200*MA/< MA-MI > +. 5 > :GOTO950 
940 FX=1 

950 BA=1024*8 :P0KE53272,PEEK < 53272)ORA 
960 P0KE53265, F'EER ( 53265 > 0R32 
970 F0RR=BAT0BA+7999: POKER,0 :NEXT 
980 FORRs1024TO2023: POKER,3 : NEXT 
990 IFFX=1THEN1@10 
1000 FORX=0TO319 :V=AX:GOSUB1110 :NEXT 
1010 IFFV=1THEN1030 
1020 X=AV:FORV=0TO199 :GOSUB1110:NEXT 
1030 FORX=0TO319 

1040 V=INT< V<X)/DV+.5): IFV<-990RY>99THEN1@60 
1050 GOSUB1090 
1060 NEXT 

1070 GETA$: IFA*=""THEN107A 
1080 END 

1090 REM ROUTINE DI STAMPA 
1100 V=100-V 

1110 B=BA+320*INT <V/8>+8*INT <X/8) + < VAND7) 

1120 POKEB, PEER c! B ) 0R21< 7- ( XAND7 ) ) 

1130 RETURN 


Fino alla riga 290 viene visualizzata la scritta GRAFICO DI FUNZIONI e 
il programma si arresta in attesa che venga premuto il tasto I (nel caso 
in cui si desiderino le istruzioni), o un tasto qualsiasi per saltare diretta- 
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mente all’introduzione della funzione da presentare graficamente. 

In 310 - 650 sono contenute le istruzioni che presentano la particolarità 
di far lampeggiare alcune parole per richiamare l’attenzione del lettore. 
Nella linea 670 si deve battere la funzione che viene successivamente me¬ 
morizzata nella linea 720 con il metodo seguente. 

In 680 viene cancellato e stampata la linea 720; in 690 viene stampata la 
scritta GOTO 720 e il cursore è riportato in HOME. 

Nella linea 700 vengono forzati tre RETURN automatici che modificano 
la linea 720 facendo ripartire il programma da quel punto. 

Nelle linee 740 - 780 sono richiesti i valori delle ascisse entro i quali do¬ 
vrà essere visualizzata la funzione. In 800 viene calcolato l’incremento di 
ascissa corrispondente a due pixel adiacenti; nelle linee 810 - 880 vengo¬ 
no calcolate tutte le ordinate dei punti da visualizzare, e fra essi vengono 
determinati il valore più piccolo e quello più grande. In 890 è calcolato 
l’incremento di ordinata corrispondente a due pixel adiacenti. Con que¬ 
sto criterio il grafico verrà automaticamente dilatato o compresso in di¬ 
rezione verticale in maniera da visualizzarlo sempre nel miglior modo 
possibile. 

Quindi lo schermo viene cancellato e nelle linee 910 - 940 sono istituiti 
due flag FX e FY per controllare la presenza o meno degli assi coordinati 
nel campo visibile. 

Finalmente nelle linee 950 - 1080 si ha la routine per l’alta risoluzione, 
già vista nel listato precedente. La subroutine da 1090 alla fine esegue 
l’accensione di ogni singolo pixel. 

Si noti che abbiamo eliminato quella parte della routine precedente che 
ripristina la bassa risoluzione, in quanto con il RESTORE essa viene riat¬ 
tivata automaticamente. 



CAPITOLO TERZO _ 

Matematica elementare 


Occupiamoci ora di alcuni programmi di matematica elementare che 
possono essere utilizzati con profitto anche a livello didattico in una 
scuola secondaria inferiore. 


MASSIMO COMUN DIVISORE E MINIMO COMUNE MULTIPLO 


10 REM COPYRIGHT IN BHSIC 
12 REM VI FI SE2ZE 22 LflTIHR 
14 REM TEL. 487631 
16 CLR- FRI NT "."E" 

18 POKE 53280,10 : POKE 53281,3 
30 BIMF1<50>,F2<50),F3<50>,FC50> 

40 F'R INTTRB <10 > " MMMtìiSMASSIMO COMIJN DIVISORE!" 

50 PRINTTAB<20>"MMSE!" 

60 F'R INTTRB<10)"WWSWINIMO COMUNE MUL11 PUD!" 

70 F'R I NT " MMMMMM" ; G0SUB10000 

80 F'R I NT "QUESTO PROGRAMMA TI SPIEGA COSA SONO IL" 
90 PRINT"M.C.D. 0 IL M.C.M. HI DUE 0 TRE NUMERI." 
100 INPUT"WWVUOI TRATTARE 2 0 3 NUMERI";R 
110 IFR=3THENF=1 
120 IFR>3THEN’00 

130 PRINT"Mv'UOI CALCOLARNE IL M.C.B. 0 IL M.C.M.?" 
140 INPUT"MBATTI 1 OPPURE 2">R 
150 IFRD2THEN140 
160 IFR=2THENFF=1 

170 INPUT"miJAL'E'' IL PRIMO NUMERO",NI 
180 INPUT’LME IL SECONDO" ; N2 
190 IFF=1THENINPUT"ME IL TERZO",N3 
200 IFFF=1IMENI000 
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205 REM-ROUTINE PER M.C.D. 

210 M=N1 : GOSUB11000 

220 FORK* 1 TOT ■FlCfO =F <. K> : F1 =T • NEXTK : T=0 

230 PRINT'TISIL. 1* NUMERO! "NI" Hfl "FI" DIVISORI : " : PRINT 

240 FORK*1TOF1 PRINTF1<K>; : NEXTK 

250 M=N2^ GOSUB11000 

260 F0RK=1 TOT :F2<K ) =F(K )■ F2=T:NEXTK : T=U 
265 PRINT 

270 PRINT"MSIL 2' NUMERO! "N2" Hfl "F2" DIVISORI 1 " ; PRINT 

280 FORK=1T0F2 : PRINTF2< K); :NEXTK 

290 IFF=0THEN340 

300 M=N3:GOSUB11000 

310 FORK*1 TOT :F3<K >=F<K> F3=T NEXTK 

315 PRINT 

320 PRINT "«SE IL 3* NUMERO! "N3" NE Hfl "F3" : PRINT 

330 FORK*1T0F3•PRINTF3 <K); : NEXTK 

340 PRINT :FORK*1TO40:PRINT"V j :NEXTK 

350 PRINT"«SCRIVILI ORDINATAMENTE SU UN FOGLIO" 

360 PRINT"COME LI VEDI SULLO SCHERMO E." 

370 GOSUB10000 

380 PRINT "ALCUNI SUDI VISORI! SONO «COMUNI! fl TUTTE E" 

390 F'RINTF+2" LE LISTE." 

400 PRINT"«IL PIU'' GRANDE DI ESSI E"' IL PIASSIMO!" 

410 PRINT"COMUN DIVISORE." 

420 PRINT"MI DIVISORI COMUNI SONO : " ; PRINT 
450 REM-RICERCA DEL M.C.D. 

460 IFF=1THENFORH=1T0F3 
470 FORJ*1T0F2:FORK*1TOF1 

480 IFF=0ANDF1<J>=F2CK)THENP=FKJ>: FRINTF1<J); 

490 IFF=1flNDF1<K >=F2<J >ANDF2<J)=F3<H>THENP=F1 <K > :PRINTF1<K >; 

500 NEXTK:NEXTJ 
510 IFF=1THENNEXTH 

520 PRINT :FORK*1TO40 = PRINT"■" ; :NEXTK 
530 PRINT"«IL PIU'' GRANDE FRA ESSI E'" 

540 PRI NTTAB<16)" «UH"P"3“ 

550 PRINT "«BICHE RAPPRESENTA APPUNTO IL M.C.D." 

560 PRINT"CERCATO." 

570 INPUT"«VUOI PROVARE ANCORA ";Rt 
580 IFLEFT#<R$>1>="S"THEN80 
590 PRINT"SDK - CIAO!" 

600 END 

1000 REM-ROUTINE PER M.C.M. 

1010 PRINT"731 PRIMI 50 MULTIPLI DEI "F+2" NUMERI" 

1020 PRINT"SONO : " 

1025 PRINT"MSCOPIALI SU UN FOGLIO!" 

1030 D=N1 : GOSUB12000 

1040 F’RINT"«SÌ'IULTIRLI DI "Nl"*="; 

1050 FORK*1TO50:F1< K)=F <K >:PRINTF1<K )i ■NEXTK 
1060 PRINT : GOSUB10000 : B=N2 : GOSUB12000 
1070 PRINT"«SÌ'IULTIRLI DI "N2"!=".: 

1080 FORK*1TO50 : F2(K>*F<K> PRINTF2CK); : NEXTK 
1090 IFF=0THEN1130 

1100 PRINT :GOSUB10000 : D=N3 : GOSUB12000 
1110 FRI NT "«SÌ'IULT IRLI DI "N3"!="; 

1120 FORK*1T050 :F3<K)=F<K> ; PRINTF3<K); :NEXTK 
1130 REM-CALCOLO MULTIPLI COMUNI 

1140 F'RI NT GOSUB 10000 : FRI NT "SNELLE "F+2" LISTE DI MULTIPLI! CE NE" 
1150 PRINT"SONO ALCUNI «COMUNI!." 

1160 PRINT "«IL PIU'" PICCOLO DI ESSI E" IL SII IN IMO!" 

1170 PRINT"COMUNE MULTIPLO CERCATO:" 

1175 PRINT"«SUN ATTIMO DI PAZIENZA!!" 

1180 IFF=1THENFORH*1TO50 
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1190 FORJ=1T050 : FORK=1TO50 

1200 IFF=0ANDF1<J>=F2<K>THENP=F1<J)=GOTO1250 

1210 IFF= 1 flNDF 1 <K> =F2< J ) ANDF2< J) =F3<H>THENP=F 1<K> : GOTO 1250 

1230 NEXTK : NEXTJ 

1240 NEXTH 

1250 IFP=0THEN1400 

1260 F'R I NT ■ FORK= 1TO40 : PRI NT"■" ; : NEXTK 
1270 F'R INTSPC < 12 > " BHHM. C. M. = "P "3" 

1230 F'R I NT : FORK= 1TO40 : F'R I NT " : NEXTK 

1290 GOTO570 

1400 PRINT"SPIACENTE! IL M.C.M. E' TROPPO GRANDE:" 

1410 F'R I NT "«PER PROVARLO DOVREI PRENDERE IN CONSI-" 

1420 F'RINT"DERAZIONE PIU'’ DEI 50 MULTIPLI PER" 

1430 F'R I NT "CIASCUN NUMERO. " :GOTO570 
10000 PRINTTAD<12PREMI UN TASTO" 

1001tì GETA*: IFA*=""THEN10010 
10020 RETURN 

11000 REM-RICERCA DEI DIVISORI 
11010 FORJsMTO1STEP-1 
11020 D=M/J:DD=INT< D) 

11030 IFD=DDTHENT=T+1 F<T)=D 

11040 NEXTJ:RETURN 

12000 REM-RICERCA DEI MULTIPLI 

12010 FORV=1T050 

12020 DD=D#Y ; F < V> =DD 

12030 NEXTV:RETURN 


Nella linea 30 vengono dimensionate 3 variabili con indice (una per cia¬ 
scun numero che verrà preso in considerazione), più una quarta variabile 
con indice che servirà da variabile provvisoria di lavoro nelle subroutine 
11000 e 12000. 

In 110 e 160 vengono introdotti due flag (F e FF) per stabilire se i nume¬ 
ri da trattare sono due o tre, e se si deve calcolare il loro massimo co- 
mun divisore e il loro minimo comune multiplo. 

Nelle linee 170-200 vengono richiesti i numeri da trattare: nelle linee im¬ 
mediatamente successive si ha il calcolo del massimo comun divisore 
mentre (se FF = 1) si ha un salto alla linea 1000 per il calcolo del mini¬ 
mo comune multiplo. 

Per ciascuno dei numeri da trattare viene adottato per il massimo comun 
divisore il procedimento seguente: il numero viene posto uguale ad M, e 
nella subroutine 11000 esso viene diviso successivamente per tutti i nu¬ 
meri interi da M ad 1. 

Ogni volta che il risultato della divisione è uguale alla propria parte inte¬ 
ra, allora vuol dire che tale risultato è un divisore di M. In tal caso la 
sua esistenza viene memorizzata per mezzo del contatore T = T + 1, e il 
suo valore viene immagazzinato nella variabile (ausiliaria) con indice 
F(T). 

Dopo il RETURN si ha il trasferimento dei divisori dalla variabile F(T) 1 

F(T) o F(K) è la stessa cosa: se per esempio T = 5 e K = 5, in entrambi i casi verrà ripe¬ 
scato dalla memoria il valore corrispondente ad F(5). 
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alla variabile FI(K) che memorizza perciò tutti i divisori del numero NI. 
Poi T viene trasformato in FI e viene azzerata la T per il ciclo riguar¬ 
dante il numero successivo N2. 

A questo punto (linea 230 e linea 240) possono essere stampati tutti gli 
FI divisori (FI( 1 ), FI(2), FI(3),...) del numero NI. 

Lo stesso avviene per i numeri N2 e (se devono essere trattati tre numeri) 
N3. 

Dopo alcune righe di spiegazione si arriva in 450 dove si ha la ricerca 
dei divisori comuni e la determinazione del più grande di essi. 

Dalla linea 460 alla 510 si hanno tre cicli FOR NEXT annidati uno den¬ 
tro l’altro. Il più estremo di essi (variabile H) agisce solo nel caso che si 
debbano trattare tre numeri. 

In 480 si effettuano i confronti fra i divisori (per individuare quelli co¬ 
muni) nel caso che i numeri da trattare siano due, mentre in 490 si effet¬ 
tuano i confronti nel caso che i numeri siano tre. 

In entrambi i casi ogni volta che si trova un divisore comune, esso viene 
posto uguale a P. Alla fine dei cicli automaticamente P corrisponderà 
a \V ultimo divisore comune, cioè quello con valore più alto. 

Passiamo ora alla linea 1000 per la ricerca del minimo comune multiplo. 
La subroutine 12000 determina i primi 50 multipli del numero D, imma¬ 
gazzinandoli nella solita variabile (ausiliaria) con indice F(Y). Ogni nu¬ 
mero da trattare viene posto uguale a D, inviato alla subroutine 12000, i 
multipli vengono poi trasferiti rispettivamente nelle FI (K), F2(K) ed 
F3(K) e stampati. 

Dopo la stampa di ciascuna lista di multipli, per consentire all’operatore 
di osservarli o di copiarli, si ricorre alla subroutine 10000 per fermare il 
programma. 

Si tratta ora di individuare il più piccolo dei multipli comuni e nelle li¬ 
nee comprese fra la 1180 e la 1240 viene applicato lo stesso procedimen¬ 
to di confronti con tre cicli FOR NEXT uno dentro l’altro. 

A differenza di prima, i confronti vengono interrotti con un GOTO 1250 
non appena viene trovato il primo multiplo comune, cioè il più piccolo. 
Può però accadere che il minimo comune multiplo non venga trovato 
perché esso si trova oltre i 50 multipli presi in considerazione per ciascun 
numero. 

In tal caso P = 0 e la linea 1250 fa effettuare un salto alla linea 1400 
dove si spiega la situazione e si rinvia alla 570 per la richiesta o meno di 
continuare. 

Mentre la ricerca del massimo comun divisore non presenta alcun pro¬ 
blema di scorrimento, consiglio il lettore di usare la routine per la ricer¬ 
ca del minimo comune multiplo solo per due numeri, oppure per tre nu¬ 
meri piuttosto bassi. 

Infatti, malgrado l’apprezzabile velocità operativa del Commodore 64 
(come di qualunque home computer), quando vengono eseguiti i con- 
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fronti con tre cicli di 50 valori ciascuno, il calcolatore deve eseguire ben 


50’ = 125000 


confronti, impiegando un tempo di poco più di un’ora! 

Per esempio impiega circa 14 minuti per individuare il minimo comune 
multiplo fra i numeri 36, 25 e 90. 

Ne impiega invece meno di due per determinare il minimo comune mul¬ 
tiplo fra i numeri 5, 6 e 15. Dal punto di vista didattico questa limitazio¬ 
ne può essere utile per mettere in luce la superiorità logica deU’uomo ri¬ 
spetto alla macchina, straordinariamente veloce ma ottusa. 


SISTEMI DI NUMERAZIONE 


Permettono di trasformare un qualsiasi numero intero decimale, binario 
o esadecimale in una qualsiasi delle altre due basi. 

Per evitare all’operatore di premere continuamente il tasto RETURN, ab¬ 
biamo preferito usare l’istruzione GET tutte le volte che era possibile. 
Fa eccezione il caso in cui bisogna battere il numero da trasformare, 
perché esso può essere costituito da una quantità variabile di cifre, ed è 
dunque necessario ricorrere al solito INPUT. 


19 REM COPYRIGHT IN BASIC 
12 REM VIA SE22E 22 LATINA 
14 REM TEL. 487631 
16 CLR : PRINT'TB" 

18 POKE53280 ■ 10 PQKE53281.. 3 
25 D1 MB < 50 >, B < 50 >, B* < 50 > > D*< 59 ) 

39 PRINTTAB<8)"JltìStSISTEM1 HI NUMERAZIONE!" 

40 PRINT"«TlPl-IOI TRASFORMARE UN NUMERO INTERO DA" 
50 PRINT"UNA BASE AB UN'ALTRA ■" 

60 PRINT"W 1-BA BECIMALE A BINARIO" 

79 PR1HT"W 2-BA BINARIO A DECIMALE" 

80 PR1NT"M 3-BA DECIMALE AB ESADEC1MALE" 

80 PRINT“W 4-DA ESADECIMALE A DECIMALE" 

109 PRINT"W 5--DA BINARIO AB ESADECIMALE" 

110 PRINT"M 6-DA ESADECIMALE A BINARIO" 

120 PRINT'tìJUALE SCEGLI ?" 

139 GETAt 1FH$=""THEN130 

140 A=VAL<A$>:IFA>6THEN10 

150 GNAGQT01000 , 2000 .• 30004000,50006000 
160 GOTO19 

200 REM-RICHIESTA DI CONTINUAZIONE 
210 PRINT"MsJJN ALTRO NUMERO ?" 

229 GETR$ IFR$=""THEN220 

230 IFR$="S"THEN10 

249 PRINT'TJJK - CIAO!" 

250 END 

1000 RLM-TRASF.DECIMALE-BINARIO 

1010 INPUT"SBATTI IL NUMERO DECIMALE";N 

1020 G0SUB10000 
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1030 PRINT"MIL CORRISPONDENTE NUMERO BINARIO E■■" 

1040 PRINTTAB < 5 >"W"Et 
1050 GOTO200 

2000 REM-TRASF.BINARIO DECIMALE 
2010 INPUT"SBATTI IL NUM.BINARIO",NT 
2020 GOSUB11000 

2030 FRI NT "«IL CORRISPONDENTE NUMERO DECIMALE E'' 

2040 F'R INTTAB < 5 ) " M" N 
2050 GOTO200 

3000 REM-TRASF.DECIMALE-ESADECIMALE 
3010 INPUT"SBATTI IL NUMERO DECIMALE";N 
3020 GOSUB10000 
3030 NT=ET:GOSUB15000 

3040 PRINT'UBIL CORRISP. NUMERO ESADECIMALE 
3050 PRINTTAB <5)"W"EET 
3060 GOTO200 

4000 REM-TRASF.ESADECIMALE-DECIMALE 
4010 INPIJT " SBATTI IL NUM. ESADEC I MALE" ; R$ 

4020 GOSUB16000 
4030 NT=WT : GOSUB11000 

4040 PR I NT "«IL CORRI SP. NUMERO DECIMALE E"' : " 

4050 PRINTTAB<5>"»"N 
4060 GOTO200 

5000 REM-TRASF.BINARIO-ESADECIMALE 
5010 INPUT"SBATTI IL NUMERO BINARIO";NT 
5020 GOSUB15000 

5030 PRINT"«IL CORRISP. NUMERO ESADECIMALE E :" 

5040 PRINTTAB<5 >" M"EET 
5050 GOTO208 

6000 REM-TRASF.ESADECIMALE-BINARI0 

6010 INPUT"SBATTI IL NUMERO ESADECIMALERT 

6020 GOSUB16000 

6030 PRINT"«IL CORRISFONDENTE NUMERO BINARIO E" :" 

6040 PRINTTAB<5)"W"UT 
6050 GOTO200 

10000 REM-TRASF.DECIMALE-BINARI0 
10010 K>0:IFN=1THENBT="1": RETURN 
10020 N=N/2 
10030 K=K+1 

10040 I FN= I NT<N "> THENBCK> =0 : GOTO 10060 
10050 BCK>=1 
10060 N=INTCN) 

10070 IFN=1THEN10090 
10080 GOTO10020 

10090 FOR J=KTO 1STEP-1 : BT< J) =STRT CB< J> > : ET C J>=RIGHTT< BT C J>, 1 :■ 
1 O100 B*=B$+B*<J):NEXTJ 
10110 B$="1"+BT 
10120 RETURN 

11000 REM-TRASF.BINARIO-DECIMALE 
11010 L=LEN(NT> 

11020 FORK=lTOL 
11030 EOO=2T(L-K> 

11040 DT<K> =MID$(NT,K,1> 

11045 IFVAL< DT<K> »1THENPRINT"MSERRORE ! !" :GOTO200 
11050 D<K)=VAL <DT <K>> 

1106@ C=B <K> *D <K > 

11070 N--N+C 
11080 NEXTK 
11990 RETURN 

15000 REM-TRASF.BINARIQ-ESADECIMALE 

15010 L=LENCNT) 

15011 Ll=L/4 : L2=INT<L1) : LL=L1-L2 
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15i312 
151314 
15016 
15018 
15020 
15030 
15040 
15050 
15068 
15070 
15080 
15090 
15100 
15110 
15120 
15130 
15140 
15150 
15160 
15170 
15180 
15190 
15200 
15205 
15210 
15220 
15230 
16000 
16010 
16020 
16030 
16840 
16050 
16060 
16070 
16080 
16090 
16100 
16110 
16120 
16130 
16140 
16150 
16160 
16170 
16180 
16190 
16195 
16280 
16210 
16220 


IFLL=0THEMLL=4:L2=L2-1 
IFLL=.25THENLL=1 
IFLL=.5THENLL=2 
IFLL=.75THEHLL=3 
N$="000"+N$ 

F ORK*0T 0L2 

B$=MIBt(Ni , LL+4#K > 4) 


IFB*="0010"THENE$= 
IFBt="00i1"THENEt= 
IFB$="0100"THENEt= 
IFBt="0101"THENEt= 


IFE$="1010"THENEt= 


— " 0 " 

GOTO15210 

= "1" 

GOTO1521tì 

Il Il 

— c_ 

GOTO15210 

= 11 o 11 

GOTO15210 

_ ii 4 " 

GQT 015210 

il C II 

GOTO 152lo 

= "6" 

GOTO15210 

= ii y •• 

GOTO1521@ 

= "8" 

GOTO15210 

=: " 9 '» 

GOTO152IO 

="R“ 

GOTO15210 

= "B" 

GOTO15210 

= "C" 

GOTO15210 

= "D" 

GOTO15210 

= "E" 

GOTO15210 

= "F" 

GOTO 152IO 

: GOTO200 


EEt=EEt+Et 

NEXTK 

RETURN 

REM-TRflSF.ESflDECIMflLE-BINRRI0 
L=LEN<Rt> 

FORK=1TOL 
Pt*MIBt<Rt> K, 1 > 

I FPt* "0"THENQt- "0000" : GOTO 16200 
IFF't*" 1 "THENQt*"0001 " : GOTO 16200 
I FF't= " 2 " THENQt* " 0010 " : GOTO 16200 
IFPt*"3"THENQt- "0011”: GOTO16200 
IFF't="4"THENQt="0100" : GOTO 16200 
I FF't=" 5 " T HENQt= " 0101": GOTO 16200 
IFPt="6"THENQt*"0110": GOTO16200 
IFPt*"7"THENQt*"0111":GOTO16200 
IFPT*"8"THENQt*"1000": GOTO16200 
IFPt*"9"THENQt*"1001": GOTO16200 
IFPt*"R"THENQt*"1010": GOTO16200 
IFPt*"B"THENQt*"1011":GOTO16200 
IFPt*"C"THENQt*"1100":GOTO16200 
IFPt*"D"THENQt*"1101":GOTO16200 
IFPt*"E"THENQt*"1110":GOTO16200 
IFPt*"F"THENQt*"1111":GOTO16200 
PRINT"WSERRQRE! !":GOTO200 
Wt=Wt+Qt 
NEXTK 
RETURN 


In 25 vengono dimensionate con una certa larghezza quattro variabili 
(due numeriche e due di stringa), poi viene stampato un quadro in cui 
viene assegnato un numero a ciascuna delle sei trasformazioni che è pos¬ 
sibile richiedere operando sulle tre basi di numerazione, e viene posta la 
domanda sull’opzione desiderata. 
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La linea 130 costituisce un ciclo che il Commodore 64 percorre conti¬ 
nuamente (dando l’impressione che il programma si fermi), fino a quan¬ 
do non viene premuto un tasto. 

In 140 la stringa A$ viene trasformata in variabile numerica e se il suo 
valore supera il numero di opzioni possibili si ha un salto in 10 e il pro¬ 
gramma ricomincia da capo. 1 

Se ciò non avviene, a seconda del valore di A si ha un salto alle linee 
1000, 2000 etc. 

Esaminiamo anzitutto le subroutine di trasformazione situate dopo la li¬ 
nea 10000. 

In 10000 si entra dopo aver battuto il numero decimale N. 

Se N = 1, viene posto B$ = 1 (B è il numero binario che la subroutine 
deve elaborare), e si ha il RETURN. 

In caso contrario viene applicato l’algoritmo classico usato per trasfor¬ 
mare in binario un numero decimale: quello della divisione successiva 
per 2. 

Se per esempio il numero decimale da trasformare è N = 13, si avrà 



Tutti i resti (presi al contrario come indicato dalla freccia), preceduti 
dalla cifra 1, costituiscono il numero binario cercato. 

Nel nostro caso si avrà B$ = 1101. Vediamo ora come questo procedi¬ 
mento è stato tradotto in istruzioni Basic. 

Non si può usare un ciclo FOR NEXT perché non si conosce la lunghezza 
del numero decimale N. 2 

Il numero N viene diviso per 2 e il contatore K registrerà via via il nume¬ 
ro di divisioni effettuate. 

Poi (linea 10040) vengono confrontati fra loro il risultato della divisione 
e la propria parte intera: se sono uguali vuol dire che il resto della divi¬ 
sione è nullo, viene memorizzata la cifra 0 in B(K), e si ha un salto in 
10060. In caso contrario c’è resto uno, e viene memorizzata la cifra 1 in 
B(K). 

Poi viene presa in considerazione solo la parte intera di N (cioè il risulta¬ 


si noti che a causa del CLR si evita l'errore di ridimensionamento delle variabili con indi¬ 
ce. 

Si potrebbe però trasformare N in stringa, ma ho preferito seguire l'altra via perché così 
se il numero N contiene un carattere non numerico, esso automaticamente non viene accet¬ 
tato. 
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to della divisione) e, se N = 1) si ha un salto in 10090 e le divisioni sono 
terminate. 

Se invece N è maggiore di uno, si torna indietro in 10020 e si ripete il ci¬ 
clo. 

Quando arriviamo in 10090 le divisioni sono terminate e i K valori 
B(1) B(2) B(3) ... B(K) 

raccolgono ordinatamente i resti (0 o 1) di ciascuna divisione nell’ordine 
con cui sono state eseguite. 

Con un ciclo FOR NEXT che va da K ad 1 questi resti vengono trasfor¬ 
mati in stringa, uno alla volta, e l’istruzione 

B$(J) = RIGHT$(B$(J),1) 

è necessaria per fare in modo che ogni stringa sia costituita da un solo 
carattere. ' 

Viene contemporaneamente formata una stringa finale (B$) che contiene 
tutti questi resti uno dopo l’altro, ma con ordine invertito. 

Nella linea 10110 si ha infine l’aggiunta iniziale della cifra 1 alla stringa 
precedente. Dopo il RETURN B$ è il numero binario che doveva essere 
calcolato. 

Passiamo ora alla subroutine 11000 che trasforma un numero binario in 
decimale. Anche qui ho usato l’algoritmo classico che consiste nel far 
corrispondere a ogni cifra binaria una potenza di 2, nel moltiplicare poi 
ogni cifra per la potenza corrispondente, e nell’eseguire infine la somma 
dei prodotti così ottenuti. 

Per esempio si abbia il numero binario: 

numero binario 

iniziale 1 10 10 1 

potenze 

corrispondenti 2 5 = 32 2 J = 16 2’ = 8 2 2 = 4 2' = 2 2° = 1 
11 numero decimale è 

1-32+1-16 + 0-8+1-4 + 0-2+1-1 = 53 
Applichiamo il metodo alla subroutine 11000: anzitutto viene individua- 


1 Infatti trasformando un numero in stringa esso risulta preceduto da uno spazio (pei 
l'eventuale segno meno), e questo costituirebbe un impedimento per l’uso della subroutine 
nella trasformazione di un numero decimale in esadecimale, come si vedrà in seguito. 
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ta la lunghezza L del numero binario N$ battuto in precedenza. 

Poi in un ciclo FOR NEXT viene generata la potenza di 2 corrispondente 
a ciascuna cifra (linea 11030), ed essa è memorizzata nella variabile 
B(K). 

Si noti che l’esponente di 2 è L-K per cui le potenze hanno esponente 
decrescente da L-1 a 0. 

Nella linea 11040 vengono invece memorizzate ordinatamente in D$(K) 
tutte le cifre del numero binario N$, una alla volta. 

In 11045 vengono rilevati eventuali errori: se la cifra è maggiore di 1, il 
calcolo si interrompe e si salta alla linea 200 per la richiesta di prosegui¬ 
mento. 

Quindi la cifra viene comunque trasformata in variabile numerica, e in 
11060 la potenza di 2 e la cifra corrispondente (0 o 1) sono moltiplicate 
fra loro ed il prodotto è indicato con la variabile C. 

Ignoriamo per un attimo la linea 11070: arrivati al NEXT si ricomincia il 
ciclo e viene calcolato il prodotto C della seconda potenza con la secon¬ 
da cifra. E così via per tutte le cifre del numero binario. 

Ad ogni passaggio per la linea 11070 la variabile N somma, al preceden¬ 
te valore di N, l’ultimo prodotto C calcolato. 

Quindi alla fine del ciclo FOR NEXT in N sarà memorizzato il numero 
decimale corrispondente al numero binario N$ iniziale. 

Passiamo ora alla subroutine 15000 dove N$ rappresenta il numero bina¬ 
rio iniziale che però deve essere trasformato in esadecimale. 

Le cifre esadecimali, come è noto, sono 

0123456789ABCDEF 

corrispondenti ai valori decimali da 0 a 15. 

Ciascuna di esse corrisponde ad un numero binario secondo la seguente 
tabella 
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cifre corrispondente 

esadecimali numero binario 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
B 
C 
D 
E 
F 


0000 

0001 

0010 

0011 

0100 

0101 

Olio 

Olii 

1000 

1001 

1010 

1011 

1100 

noi 

1110 

1111 


Cioè ogni combinazione possibile di quattro cifre binarie corrisponde 
sempre a una e una sola cifra esadecimale. 

Ora consideriamo un generico numero binario 


1011001000 


e lo dividiamo in gruppi di quattro cifre a partire da destra 

10 - 1100-1000 


e completiamo (quando è necessario) il primo gruppo a sinistra con degli 
zeri iniziali in modo che anch’esso sia formato da quattro cifre 

0010 - 1100-1000 

Allora, sostituendo a ogni gruppo la cifra esadecimale ad esso corrispon¬ 
dente in base alla tabella precedente, si ottiene 

2C8 

che è il numero esadecimale corrispondente a quello binario. 

Ebbene, nella linea 15010 viene indicata con L la lunghezza del numero 
binario N$, poi esso viene diviso per quattro e il risultato viene chiamato 
LI, mentre la sua parte intera viene chiamata L2. 
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La differenza fra LI ed L2 può essere 


0 

oppure .25 
oppure . 5 
oppure .75 


ed essa viene indicata con LL. 

Ora possiamo dividere il numero binario in gruppi di quattro cifre, ed 
L2 rappresenta il numero di gruppi completi, mentre LL (grazie alla tra¬ 
sformazione imposta nelle linee 15012-15018) rappresenta il numero di 
cifre del primo gruppo a sinistra. 1 

In 15020 vengono aggiunti tre zeri iniziali ad N$ allo scopo di poter 
completare in ogni caso il primo gruppo quando esso non è completo. 
Finalmente da 15030 a 15220, con un ciclo FOR NEXT vengono presi in 
considerazione tutti i gruppi di quattro cifre, uno alla volta, e trasfor¬ 
mati nella corrispondente cifra esadecimale. 

Se un gruppo contiene altri caratteri che non siano 0 o 1, si arriva in 
15205 dove si ha la segnalazione di errore. 

In caso contrario le cifre esadecimali E$ vengono sommate una all’altra 
in modo da costruire alla fine l’intero numero esadecimale EE$ (linea 
15210). 

Rimane da esaminare la subroutine 16000. 

Dopo aver calcolato la lunghezza L del numero esadecimale R$, con un 
ciclo FOR NEXT vengono poste uguale a P$ tutte le sue cifre una dopo 
l’altra a partire dalla sinistra. 

Con un procedimento di trasformazione contrario al precedente ciascuna 
di esse è sostituita da gruppi di quattro cifre binarie, che sono poi som¬ 
mate ordinatamente fino a costituire il numero binario W$ che doveva 
essere determinato. 

Anche qui (linea 16195) c’è la segnalazione di errore nel caso che al po¬ 
sto della cifra esadecimale ci sia un carattere illegale. 

Dopo questa lunga parentesi sulle subroutine possiamo tornare ad esa¬ 
minare le routine 1000, 2000, 5000, 6000, 3000 e 4000. 

Per le prime quattro, dopo aver battuto il numero da trasformare si ha 
un salto alla subroutine relativa, la stampa del risultato e l’invio alla li¬ 
nea 200 per la richiesta di procedimento (con il solito procedimento del 
comando GET). 

Per le ultime due invece si ricorre successivamente a due subroutine. 
Così nella 3000 il numero decimale viene prima trasformato in binario e 
poi da binario in esadecimale. 

'Nel caso in cui la differenza L1-L2 = 0, dovrebbe essere LL = 0, ma ciò provocherebbe 
una segnalazione di errore in 15040 quando anche K = 0. Ho superato l’ostacolo ponendo 
LL = 4 diminuendo di 1 il numero L2 di gruppi completi. 
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Per inciso è proprio per quest’ultima trasformazione che le cifre del nu¬ 
mero binario sono state private in precedenza (ultima istruzione della li¬ 
nea 10090) dello spazio vuoto iniziale. 

Analogamente nella 4000 il numero esadecimale viene prima trasformato 
in binario e poi da binario in decimale. 

Il programma precedente risulta abbastanza prolisso perché costituisce 
una mera trasposizione degli algoritmi normalmente usati quando si de¬ 
ve operare manualmente un cambiamento di base. 

Spesso è invece più conveniente adoperare algoritmi completamente dif¬ 
ferenti, che risultano più adatti alla logica di un calcolatore. 

Vediamo come sia possibile ideare una routine per le trasformazioni di 
base, molto più rapida, concisa ed efficiente della precedente. 
Dall’algebra è noto che una frazione N/D può essere sempre scritta nella 
forma 


N/D = Q+R/D 

dove N e D rappresentano il numeratore e il denominatore di una fra¬ 
zione o, ciò che è lo stesso, il rapporto tra due numeri. Q è il quoziente 
e R il resto. In altre parole ciò equivale a dire, per esempio, che 

7/2 = 3+1/2 

Moltiplichiamo i due membri della prima uguaglianza per D e risolvia¬ 
mo rispetto a R. Si ottiene 


R = N-QxD 


Ora osserviamo il listato seguente: 


10 REM TRASFORMAZIONE DECIM./E8ABECIM. 
20 CLR : F'R I NT " 71" 

30 N$="0123456789AECDEF" 

40 INPUT"NUMERO DECIMOLE",D 
50 A=INT < D/16> 

60 H$*M I B$ O li:, D+1 -16*A ,1 > +H$ 

70 D=A 

80 IFTO-0THEN50 
90 PRINTH* 

100 F'RINT"MANCORA ?" 

110 GETQ*: IFQ$=""THEN110 
120 IFQ$="S"THEN30 


Nella linea 30 vengono definite in una stringa le 16 cifre della numera¬ 
zione esadecimale, e in 40 viene richiesto il numero decimale D da tra¬ 
sformare. 
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Il numero viene diviso per 16 e nella variabile viene immagazzinata la 
parte intera della divisione (corrispondente alla lettera N dell’uguaglian¬ 
za prima ricavata, mentre il divisore D corrisponde ora al numero 16). 
Nella linea 60 viene estratta da N$, con il MID$, la cifra opportuna uti¬ 
lizzando la suddetta uguaglianza. 

In 70 e 80 viene continuato il ciclo di divisioni successive, dopo aver 
scambiato D con A, fino a quando la variabile A diviene nulla. 

In 60 ogni cifra H$ ricavata viene accumulata prima di quelle calcolate 
in precedenza. 

Alla fine si avrà in 90 la stampa di tutto il numero esadecimale H$. 

Si noti che cambiando i due numeri 16 nelle linee 50 e 60 si può utilizza¬ 
re questa stessa routine anche per trasformare un numero decimale in 
un’altra base qualsiasi. 


AREA E PERIMETRO DEI POLIGONI 


Pensiamo anche ai più piccoli (molti lettori avranno figli o nipoti che 
frequentano le scuole medie) con un programmino sonoro che non man¬ 
cherà di stupirli. 

Il programma permette di calcolare rapidamente area e perimetro di un 



Figura 8 
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qualsiasi poligono (purché non intrecciato), con un qualsiasi numero di 
lati. 

Basta fornire al Commodore 64 le coordinate di tutti i suoi vertici. 
Prima di affrontare il listato analizziamo l’algoritmo usato per il calcolo 
dell’area. 

Consideriamo per esempio un quadrilatero generico ABCD (figura 8), 
del quale conosciamo tutte le coordinate dopo aver fissato arbitraria¬ 
mente un sistema cartesiano di riferimento. 

Risultano determinati quattro trapezi rettangoli 

ABFE, BCHF, DCHG, ADGE 

la cui area, come è noto, è data dalla semisomma delle basi per l’altez¬ 
za. 

L’area del quadrilatero può essere ottenuta per mezzo della somma alge¬ 
brica 


c = c _i_ c _ c _ c 

°ABFE T °BCHF °DCHG J ADGE 

E facendo i calcoli, si ottiene 

s = zi±Zi ( Xì - Xl ) + yi +y> ( Xì -x 2 ) - y j+y* ( X} ~X4) + y*+y' (x 4 - Xl ) 
2 2 2 2 

Cioè 

S = Cyi +y 2 ) (ati— ori) (xi-x 2 ) - (X 3 -X 4 ) - 0'4+>'i) (x 4 —x,) 

2 

tutti i termini in cui x ed y hanno indici uguali, si elidono fra loro e ri¬ 
sulta 


5 - x 2 y ! +x 3 y 2 +x 4 y, +x t y 4 — xiy 2 —x 2 y 3 — x 3 y 4 —x 4 y t 

2 


che può anche essere scritta 

S = (x 2 y 1 +x 3 y 2 +x 4 y 2 )—(xiy 2 +x 2 y 3 +x 3 y 4 ) + x t y 4 —x 4 y\ 

2 


Si può facilmente dimostrare che generalizzando si ottiene (per un poli¬ 
gono di n lati) 
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£*• (A*+y*.i)- L k (Xk-\ +y k ) + Xìy„-x„yx 



formula scarsamente utile per calcoli “a mano”, ma molto adatta per 
un computer. 

1 quattro termini a numeratore possono essere indicati con 


fli = E/r (XK + y*-0 

2 I 
n I 

«2 = E* (xk- i + y*) 
2 

Oì = Xi y « 
fl4 = X„ yi 


e quindi l’area è data da 


a i -02 + a 3 -o 4 


Si noti che scambiando le x con le y' si ottiene lo stesso risultato ma con 
segno negativo. 

Un tale scambio si verifica se consideriamo i vertici del poligono ruotan¬ 
do in verso contrario. Ora possiamo passare all’analisi del listato. 


10 REM COPYRIGHT IN BHSIC 

20 REM VIA SEZ2E 22 LATINA 

30 REM TEL. 487631 

40 CLR : FRI NT "II!" : 3=54272 

50 PQKE53280,10 : F" JKE53281,3 

60 R$=".'SAREA E PERIMETRO DEI POLIGONI3" 

70 F0RK=1T032 

30 PRINT"SltìMB"SPC<5 ) MID$ <. A*, 1,K> 

90 GOSUB1000 
100 NEXTK 

110 PRINT"MB DISEGNA SU UN FOGLIO UN POLIGONO" 

120 PRINT"ìdQUALSIRSI <CONCAVO 0 CONVESSO, PURCHÉ' " 

130 PRINT "NON INTRECCIATO!', POI TRACCIA UN SISTEMA" 

140 PRINT"DI ASSI CARTESIANI (ARBITRARIO),E BATTI" 

150 PRINT"LE COORDINATE DEI VERTICI,ORDINATAMENTE" 

160 PRINT"UNA DOPO L ALTRA." 

170 PRINT"» PER FINIRE RIBATTI LE COORDINATE DEL" 

180 F'R I NT "F'RIMO VERTI CE. " : GOSUB2000 
260 REM INGRESSO COORDINATE 
265 DIMX <, 1 @0>, V < 100) 

270 T=T+1:IFF=0THEN310 

280 PRINT" 17*: ICORDA ! ! PER CHIUDERE IL POLIGONO DEVI" 
290 PRINT"BATTERE : " • F'RINTSPC<5) " fl< = "X0: SPC<20> "V = »Y0 
300 GOSUB4000 

310 PRINT" WfCOORDINATE DEL"T"• PUNTO :" 


Noi senso di scambiare gli indici delle due variabili. 
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320 INF'UT"*K = ";X<T>:GOSUB3000 

330 I NF'UT " ?h‘ ■=": V t T > : GOSUB3000 

34© I FT=1 THENX0=X < 1 ) '■ V0=V < 1 ) • F= 1 

350 REM CONTROLLO CHIUSURA POLIGONO 

360 I FT>1ANBX<T >=X0ANDV<T>=V0THEN500 

370 GOTO270 

500 REM CALCOLO AREA 

510 F0RK=2T0T-1 

520 A1 = A1+X C K-1 ) *V < K ) 

530 02=A2+V (. K-1 > *X < K ) 

540 NEXTK 

550 A3=X<T-1)#V0 

560 A4=V<T-1>*X0 

570 A=RBS<< A1-A2+A3-A4» /2 > 

600 PRINT"ntìMLAREA BEL POLIGONO E' ■ " 

610 PRINTSPC( 13)"II* »"A 

620 FRINT :GOSUB4000 

640 REM CALCOLO PERIMETRO 

650 F0RK=1T0T-1 

660 X1=<X<K+1 )-X<K>) 12 

670 V1=<V<K+1>-V <K ))12 

680 L=oQR X1+V1 '■> 

650 PP=PP+L 
700 NEXTK 

710 PRINT"M!E IL SUO PERIMETRO E'' : " 

715 PP=INT < PP#100+.5 >/100 

720 PRINTSPC< 13)")«W2P ="PP 

730 PRINT :GOSUB4000 

740 PRINT".KWBfv'UOI PROVARE ANCORA ?" 

750 GETQ4:1FQ$=""THEN750 

760 IFQ$="S"THENRUN 

810 PRINT'LTflftWtìOK - CIAO !!!" 

800 ENB 

1000 REM SCALA INIZIALE 

1010 POKES+24,15 

1020 POKES+5 /9 

1030 POKES+4 .■ 33 

1040 REABA : REABB 

1050 IFB=-1THENRESTORE: GOTO1040 

1060 POKES+1,A :POKES,B 

1065 FORJ=1TO100•NEXTJ 

1070 POKES+4,32 : RETURN 

1080 DATAI?,37,15,63,21,154,22,227 

1050 BATA25,177,28,214,32,54,34,175 

1100 BATA-1,-1 

2000 REM ATTESA 

2010 PRINTSPC(12)"MM<PREMI UN TASTO)" 

2020 GETQ$ : IFQ$=""THEN2020 
2030 PRINT"n" RETURN 
3000 REM BEEP 

3010 F'OKES+24,15: POKES+23,0 
3020 F'OKES+5,25 : POKES+6,68 
3030 POKES+1,65 :POKES,SS 
3040 POKES+4,33 
3050 FORJ=1TO100 :NEXTJ 
3060 POKES+4,0 :POKES+5,0 
3070 POKES+6,0 : RETURN 
4000 REM BARRA ORIZZONTALE 

4010 PRINT"®" : FORK=1TO40:PRINT"•"; ; NEXT:PRINT"3" 
4020 RETURN 
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Dando il RUN al programma vedrete comparire il titolo, ma una lettera 
alla volta, mentre vengono eseguite delle scale musicali. 

Dopo una breve spiegazione si devono battere le coordinate dei vertici 
del poligono, e per ciascuna di esse viene emesso un beep sonoro. 

Non appena il poligono è chiuso (quando sono ribattute le coordinate 
del primo vertice), si ha il calcolo dell’area e del perimetro. Infine si ha 
la richiesta di procedere o no per un secondo calcolo e, in caso negativo, 
viene visualizzata la solita stringa finale OK-CIAO. 

Essendo questo il primo programma contenente delle routines sonore, 
analizziamo brevemente i criteri che le regolano. 

Nella linea 40 viene memorizzato nella variabile 54272: occupiamoci pri¬ 
ma della subroutine 3000. 

Nella linea 3010 con la prima POKE viene regolato al massimo il volume 
sonoro, mentre con la seconda POKE si effettua il reset dei controlli di 
filtro e di voce. 

In 3020 si fissano i parametri (ATTACK - DECAY - SUSTAIN - RE- 
LEASE) che costituiscono le caratteristiche dell’onda sonora. 

Nella linea 3030 vengono stabilite le frequenze massima e minima (in al¬ 
tre parole la nota) che dovranno essere emesse. 

In 3040 viene invece fissata come forma d’onda quella a dente di sega. 
In 3050 è introdotto un ciclo di ritardo che costituisce la durata tempo¬ 
rale della nota. Infine il suono viene azzerato e si ha il RETURN. 

Nella subroutine 1000 è invece generata la scala musicale che accompa¬ 
gna il titolo: il procedimento di generazione del suono è analogo al pre¬ 
cedente, con l’unica differenza che i due valori di frequenza (A = alta, 
B = bassa) vengono letti ogni volta dai DATA e dopo la lettura dell’ul¬ 
tima coppia di valori (-1, -1) si ha in 1050 un RESTORE e quindi una 
rilettura dei DATA dall’inizio. Ciò permette di eseguire più volte la stes¬ 
sa scala musicale. 

Torniamo ora al programma con alcuni rapidi commenti. 

In 265 vengono dimensionate le variabili con indice X ed Y e possono es¬ 
sere trattati poligoni con un massimo di 100 vertici. 

Quindi, dopo aver definito A$, in un ciclo FOR NEXT sono prese in 
considerazione successivamente le prime K battute di A$, viene emessa 
una nota per mezzo della subroutine 1000, e viene cancellato lo scher¬ 
mo. 

Il calcolo dell’area è ottenuto col procedimento già visto, mentre quello 
del perimetro si ottiene semplicemente calcolando per ciascuna coppia di 
vertici consecutivi la lunghezza del lato con la formula della distanza fra 
due punti. Il flag F serve per evitare di stampare le coordinate del primo 
punto (linee 280-300) prima che esse vengano battute (sic!). 

Infatti ho ritenuto necessario ricordare all’operatore quali sono le coor¬ 
dinate iniziali, perché mi accadeva spesso di dimenticarle e di non riusci¬ 
re quindi a chiudere il poligono. 



CAPITOLO QUARTO _ 

Ancora matematica 


Proseguiamo la trattazione di programmi su argomenti matematici con la 


SOLUZIONE DELLE EQUAZIONI ALGEBRICHE 


Permette di individuare le soluzioni reali (se ce ne sono) di una qualun¬ 
que equazione algebrica razionale intera. 

Cioè di tutte quelle equazioni che possono essere poste sotto la forma di 
un polinomio uguagliato a zero 

f(x) = 0 

L’algoritmo che useremo rappresenta una variante semplificata del me¬ 
todo di Newton (o delle tangenti), in cui le soluzioni vengono ottenute 
attraverso un processo di approssimazioni successive (iterazioni). 
Consideriamo una generica funzione algebrica razionale intera 

y = m 

Le sue (eventuali) intersezioni con l’asse x rappresentano le radici reali 
dell’equazione 


f(x) = 0 
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Figura 9 


Nella curva rappresentata nella figura 8 tali radici sono 

x = a 

* = 0 
x = y 

Fissiamo a piacere un valore x n : ad esso corrisponde il punto a della cur¬ 
va con coordinate 


A = (-*•„; /(x,,)) 

La retta tangente alla curva nel punto A ha coefficiente angolare 

m = f'(xo) 

corrispondente anche alla tangente trigonometrica all’angolo $■ 
Osservando il triangolo rettangolo ABC si ha inoltre che 

„ AB 

m = tgd=~ 


f\x o) 


AB 

CB 


e quindi si può scrivere che 
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Consideriamo ora il rapporto 


/(Ao) 

/'(*>) 

Si ha, per quanto detto, 

fM _ AB_ 

/'( Ao) AB 
CB 

quindi effettuando la differenza fra x 0 e tale rapporto, si ottiene a, 
(ascissa del punto C) 


Ai 


= Ao—' 


/(Ao) 
/'(Ao) 


Ripetiamo il procedimento prendendo il valore a, come nuovo valore di 
partenza, e calcoliamo 


a 2 


= Ai —' 


/(Al) 

/'(Al) 


e così via fino ad ottenere una successione di valori 


a 4 a, a 2 x, x,... 


Tale successione converge rapidamente verso una delle soluzioni (nel ca¬ 
so considerato, verso la soluzione a). 

Il procedimento cade in difetto se il denominatore f(x) si annulla per 
uno dei termini della successione. 

Può anche accadere che l’equazione considerata non abbia soluzioni rea¬ 
li, oppure (ma molto raramente) che sia necessario un gran numero di 
iterazioni. 

Ora possiamo passare all’analisi del listato. 


10 REM COPYRIGHT IN BASIC 
12 REM VIA SEZZE 22 LATINA 
14 REM TEL. 487631 
16 CLRSPRINT "3S" 

18 P0KE5328S, 10 sP0KE53281,3 

20 PRINT"(| SOLUZIONE DELLE EQUAZIONI ALGEBRICHE" 

30 PRINTTAB<7>"HCON IL METODO DI NEWTONSH" 

35 FORK=1TO40SPRINT".";sNEXT:PRINT”S" 

40 i nplit" M ana auAL r E' il grado dell'equazione" ;G 

50 DIMA<G>,B<G -1> 

60 PRINT"□OR - RIDUCI L'EQUAZIONE SOTTO FORMA DI" 
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re FRINÌ“POLINOMIO UGUAGLIATO A SERO,ED ORDINA I" 

80 PRINT"TERMINI SECONDO LE POTENZE DECRESCENTI" 

96 FRINT"DELLA X." 

166 PRINT"SISPQI FORNISCIMI I LORO VALORI :" 

165 PRINT"fi] <BATTENDO 6 AL POSTO DEI COEFFICIENTI" 

167 PRINT" EVENTUALMENTE MANCAMII>" 

168 PRINT 
116 F0RK-6T0G 

126 PRINTK+1"■ COEFFICIENTE = "; :IMPUTACIO 
136 NEXTK 

146 REM CALCOLO COEFF. DERIVATA 
156 F0RK=8T0G-1 

166 B«K>=<G-K>*A<K) 

176 NEXTK 

186 PRINT"3 ORA BATTI UN VALORE DELLA X INTORNO" 
198 PRINT"AL QUALE PRESUMIBILMENTE RITIENI CI SIA" 
266 PRINT"UNA SOLUZIONE CO SE NON HAI ALCUNA" 

216 PRINT"INOICAZIOHE, UN VALORE ARBITRRRIO>." 

226 INPUT "BX=".:X 

223 PRINTTABC 9 > "28UPJN ATTIMO DI PAZIENZA ! 3 " 

224 T=6 

225 P=6:PP=6 
236 T=T +1 

246 REM CALCOLO VALORE DEL POLINOMIO 

256 F0RK=6T0G 

266 P=P+A<K>#XtCG-K> 

265 NEXTK:IFX=6THENP=A<G> 

276 REM CALCOLO VALORE DELLA DERIVATA 

275 F0RK=6T0G—1 

236 PP=PP+B C K> *XTC G-K-1> 

306 NEXTK:IFX=6THENPP=BCG-1> 

316 REM TEST ANNULLAMENTO DERIVATA 
326 IFPP=0THEN406 

336 REM NUOVO VALORE PER L'ITERAZIONE 
346 XX=X-P/PP 

358 REM TEST SOLUZIONE ESATTA 
366 IFX=XXTHEN446 
376 X=XX 

336 IFT>100THEH4S6 
396 GOTO225 

466 PRmT"HHO TROVATO LA DERIVATA NULLA PER" 

410 PRIN>‘»fflH<: ="X 

415 PRINT"28 PROVIAMO CON UN ALTRO VALORE INIZIALE" 
420 INPUT"DELLA X ?";R* 

438 IFLEFT$ CR$,1> = "S"THEN220 

440 REM STAMPA RISULTATO 

450 PRINT"JBSOLUZIONE X=“X 

460 PRINT"SORDINATA NEL PUNTO = "P 

478 PRINT"SPERIVAIA NEL PUNTO ="PP 

475 GOTO530 

436 REM SOLUZIONE NON TROVATA 
485 PRINT"ZB30RRV I!" 

490 PRINT"28 AL TERMINE DI 166 ITERAZIONI NON HO" 

506 PRINT"TROVATO ALCUNA SOLUZIONE, MA SOLTANTO :" 
518 PRINT "SSX ="X 
520 PRINT" SF <X > = " P 
525 PRIHT"SF'<X> ="PP 

530 INPUT"SS3PROVO CON UN ALTRO VALORE DI X" _;F:$ 

540 IFLEFT$ C R$,1> = "S"THEH220 

550 INPUT "SVUOI CAMBIARE L'EQUAZIONE" ,-R$ 

566 IFLEFT$ C R$,1> = "S"THENRIJN 
570 PRINT"3DK - CIAO" 
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Nelle linee 40 e 50, dopo aver fissato il grado G dell’equazione, vengono 
dimensionate due variabili con indice: la prima per ricevere i valori dei 
coefficienti dell’equazione e la seconda per i coefficienti della corrispon¬ 
dente derivata (di 1 grado inferiore e perciò con un coefficiente in 
meno). 1 

Da 110 a 130 vengono richiesti dal C-64 i valori dei coefficienti 
dell’equazione. Da 140 a 170 vengono invece calcolati automaticamente i 
coefficienti della derivata. Poi il C-64 richiede il valore X dal quale ini¬ 
ziare l’interpolazione, e vengono inizializzate le variabili: 

T = serve per contare il numero d’iterazioni eseguite. 

P = serve per memorizzare il valore di f(x) ad ogni iterazione. 

PP = serve per memorizzare il corrispondente valore di / (a'). 

Da 240 a 265 viene calcolato il valore di f(x) ad ogni iterazione: inizial¬ 
mente è P = 0, poi a causa del ciclo FOR NEXT vengono calcolati tutti i 
termini del polinomio uno dopo l’altro, ed ogni volta sono sommati a P. 
Alla fine P corrisponde al valore dell’intero polinomio /'(x). 

La condizione dopo il NEXT K della linea 265 è necessaria per il caso in 
cui X = 0, altrimenti si avrebbe f(x) = 0 (invece del termine noto). 

Da 270 a 300 viene calcolato in modo perfettamente analogo il valore 
PP della derivata. 

In 310 e 320 si ha il controllo della derivata e, se questa è nulla, si ha 
l’uscita dalla routine con un salto in 400 dove viene richiesto un diverso 
valore X di partenza. Nelle linee 330 e 340 viene fissato il nuovo valore 
XX per l’iterazione successiva. 

Se questo valore coincide con il precedente (linee 350 e 360), abbiamo 
individuato una soluzione e si ha un salto in 440 per la stampa dei risul¬ 
tati. 

In 370 si ha il comando di trasformare XX in X per cominciare il nuovo 
ciclo iterativo (nel caso che la soluzione non sia stata ancora trovata). 
Per fermare le iterazioni quando le soluzioni reali non esistono (o quan¬ 
do il numero di iterazioni sarebbe troppo alto), si ha in 380 il comando 
di saltare alla linea 480 dopo cento iterazioni, 1 per la stampa dei risultati 
raggiunti fino a quel momento, e la richiesta di un nuovo valore di par¬ 
tenza. 

Provate a far scorrere il programma con equazioni di cui già conosciate 
le soluzioni, oppure con equazioni reciproche (che ammettono sicura¬ 
mente le soluzioni X = 1 oppure X = -1). 

Un altro programma più completo, perché fornisce un elenco di tutte le 
soluzioni reali e complesse, è il seguente. 


Se G è minore o uguale a 10, tale dimensionamento può essere eliminato. 

Ad ogni iterazione la variabile T aumenta di una unità grazie al contatore posto in 230. 
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10 CLR 

15 POKE532S0,10:P0KE53281,3 

20 PRIMI"HRfiliICI REALI E COMPLESSE DI UN POLINOMIO" 
30 PRINT"EMI?] QUESTO PROGRAMMA CALCOLA SflUTTEi LE" 

40 FRINT"RADICI HI UN POLINOMIO ESPRESSO SOTTO" 

50 PRINT"LA FORMA 

60 PRINT "SIMM N N-l N-2" 

70 PRINT" X + A X + A X +....+A = 0" 

80 PRINT" 1 2 N" 

90 PRINT" MM8N. E. IL PRIMO COEFFICIENTE E' =13" 

110 tEFFNA<2>=INT<1000*2V1000 

120 F'RINT"MMQUALE ' IL GRADO DEL POLINOMIO ?" 

130 GETNf: IFN*=""THEN130 
140 N=VALCNf) 

150 PRINT'LTBATTI I COEFFICIENTI : » 

170 FOR1=1TON 

190 PRI NT "JflCOEFFICI ENTE A =" 

200 PRINT"»»»»MÌWtM»ri; ■ INPUT"wn";A<i> 

210 NEXT 
220 PRINT"73" 

250 IFNO2THEN490 
260 È=A(1) 

270 C=A(2> 

280 D=B*B-4#C 
290 IFDC0THEN370 
300 D1=SQR<D> 

310 R1 = C-B+D1 V2 
320 R2=(-B-D1>/2 
330 PRINT"STRABICI REALI 3" 

340 PRINTTAB<10)"MK = "FNA<R1> 

350 PRINTTAEC10)")SK = "FNA(R2i 
360 GOTO470 
370 B1=SQR(-D) 

380 IFE=@THEN400 

390 IFABS(D1/B)<.04THEN440 

400 FRI NT "FRADICI COMPLESSE 3" 

410 PRINTTAB(10>"Mtì"FNA(-B/2>" + J"FNA(Bl/2> 

420 PRINT :PRINTTAB<10)FNA(-B/2>" - J"FNA(D1/2> 

430 GOTO470 

440 PRINT"?5»II!F;ADICI REALI : 3" 

450 PRINTTAB(10VX = "FNA(-B/2:' 

460 PRINTTAB(10)"X = "FNA(-B/2> 

470 IFN=2THEN970 
480 RETURN 
490 IFN=1THEN97@ 

500 1 FA < N > O0THEN540 

510 PRINT"BWRADICE REALE 3" 

515 PRINTTAB<10)"KK = "A(N> 

520 N=N-1 

540 IF(A(N-2> =0)$(A(N-1 > =0)THENF-1 : Q= 1 •'GOTO590 
550 IFAES(A <N-2))<.001THENA(N-2)=.1 
560 P=A(N~1)/A< N-2 > 

570 IFP=0THENP=1/A<N-2) 

580 Q=A( N >/A < N-2 ) 

590 B<0>=1 

600 B <1>=A(1>-P#B<0> 

610 F0RI=2T0N 

620 B ( D =A <I) ■-P#E(I-1) ■-Q*B(I-2 > 

630 NEXT 
640 C(0 > = 1 

650 C<1)=B<1)-P#C<0) 

660 F0RI=2T0N-1 
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678 C < I ) =B < n -F'*C< I -1 > -Q#c < I -2 ) 

680 NEXT 
690 Pl=C(N-2> 

700 P£=C <N-3> 

710 P3=C <! N-1 > -B < N-1 ) 

720 P4=P1 
730 F1=B<N-1) 

740 F2=B<N> 

750 DE=P1*P4-P2*P3 
760 IFDE=0THEN950 
770 BP=(F1*P4-P2*F2 >/DE 
780 DQ=CP1*F2-F1*F'3>/DE 
790 F-P+DP 
800 Q=Q+DQ 

810 IF < DP=0)*(DQ*0>THEN830 
820 GOTO590 

830 REM ITERAZIONE COMPLETATA 

840 E=P 

850 C=Q 

860 GOSUB280 

870 N=N-2 

880 F OR1 = 1TON 

890 fi < I ) =E<I) 

900 NEXT 

910 IFN=1THEN960 
920 IFH=2THENGOSUB260 
930 IFN>2THEN540 
940 GOTO970 

950 F'R I NT " XEQUfiZI ONE SENZA SOLUZIONI " : GOTO970 
960 PRINT"®*RADICE REALE : 3" 

965 PRINTTAB < 10 ) " IK = "FNAC-Aa 
970 PRINT"W3ANC0RA ?" 

980 GETR$:IFR$=""THEN980 
990 IFR$="S"THEN10 
1000 PRINT"ZJZ'K - CIAO 
1010 END 


Il programma è una libera rielaborazione di un lavoro pubblicato su una 
rivista straniera, e funziona egregiamente. 

Provate a proporre l’equazione 

X 1 4 + 19*X 12-150 = 0 

otterrete X = 2.45 e X = -2.45 (al posto dei valori irrazionali ± V6) e 
altre due soluzioni immaginarie X = 5i e X = -5i. 

Per l’equazione di quinto grado 

X 1 5 - 5*X t 4 + X 1 3 + 13*X 12 - 2*X - 8 = 0 

otterrete invece le soluzioni X = 1; X = -1; X = -1; X = 2; X = 3.99 
(al posto del valore esatto X = 4). 
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DISPOSIZIONI E PERMUTAZIONI 


Il Commodore 64 può anche essere usato didatticamente per spiegare dei 
concetti, per fornire esempi sugli stessi e per proporre esercizi applicativi 
controllando poi se la risposta è giusta. Questo programma e il seguente 
costituiscono per l’appunto due lezioni che trattano gli argomenti del 
calcolo combinatorio e del calcolo delle probabilità. 

Analizziamoli rapidamente uno alla volta. 


100 REM COPYRIGHT IH BASIC 
102 REM VIA SE2ZE 22 LATINA 
104 REM TEL. 487631 
110 CLR : FRINT"IH" 

120 POKE53280,3 :P0KE53281,3 
130 PRINTTABC10>" MtìSCRLCOLO COME INATOR10" 

140 PRINT"«««SCO!tSIBERIAMO QUATTRO ELEMENTI CO 00-" 

150 FRINT"GETTI 0 LETTERE 0 NUMERI) DIFFERENTI." 

160 FRINT".«SCEGLI 4 SIMBOLI 0 NUMERI 0 LETTERE E" 

170 PRINT"BATTILI =" 

180 INPUT"«SCEGLI IL PRIMO SIMBOLO"ISI* 

185 IFLENCS1*)O1THEN180 
190 INPUT"«IL SECONDO";S2* 

195 IFLENC S2*>01THEN190 
200 INPUT"«IL TERZO";S3$ 

205 IFLENC S3*>01THEN200 
210 INPUT"ME IL QUARTO";S4f 
215 IFLEN C S4*)01THEN210 

220 PRINT"DDK - HAI SCELTO I SIMBOLI: ";S1$" "S2*" "S3$" "S4* 
230 PRINT"MÒRA VEDIAMO IN QUANTI MODI DIVERSI E'" 

240 PRINT"POSSIBILE RAGGRUPPARLI 3 A 3 ." 

250 PRINT"«DUE RAGGRUPPAMENTI SONO CONSIDERATI" 

260 PRINT"DIFFERENTI SE HANNO =" 

270 PRINT"» 1-ALMENO UN ELEMENTO DIVERSO" 

280 PRINT" 2-ELEMENTI UGUALI MA DISPOSTI CON" 

290 PRINT" ORDINE DIFFERENTE" 

300 PRINT"««TUTTI I RAGGRUPPAMENTI CHE E' POSSIBILE" 

310 PRINT"FORMARE SONO I SEGUENTI :" 

320 GOSUB2260 
330 PRINT "IT" 

340 PRINTS1*S2*S3* , S1*S2*S4*,S2*S3*S4*,S1*33*34$ 

350 PR INTS 1 *S3*32* .• S1 *S4*S2*.• S2*S4*S3*,S1*S4*S3* 

360 PRINTS2*S1*S3*,S2*S1*S4*,S3*S2*S4*,S3*S1*S4* 

370 PRINTS2*S3*S1*,S2*S4*S1*,S3*S4*S2*,S3*S4*S1 * 

380 PRINTS3*S 1 *S2*, S4*S1*S2*,S4*S2*S3*, S4*S1*S3* 

390 PRI NTS3*S2*S1 *, S4*S2*S1 *,S4*S3*S2*,S4*S3*S1* 

400 PRINT"«SONO 24 RAGGRUPPAMENTI." 

410 PRINT"MESSI VENGONO CHIAMATI ISPOSIZIOHIS DI" 

420 PRINT"4 ELEMENTI DI CLASSE 3." 

430 PRINT"MFIU' IN GENERALE SE SI HANNO 0N3 ELE-" 

440 PRINT"MENTI,TUTTI I RAGGRUPPAMENTI CHE SI" 

450 PRINT"POSSONO OTTENERE PRENDENDO OGNI VOLTA" 

460 PRINT" ràfc:;3 DI ESSI, SI CHI AMANO : " 

470 PRINT"MSDISF’OSIZIONI DI N ELEMENTI DI CLASSE KS" 

480 GOSUB2260 

490 PRINT'TTIL NUMERO DEI RAGGRUPPAMENTI VIENE" 

500 PRINT"INDICATO BREVEMENTE CON IL SIMBOLO" 

510 PRINTTABC15)"M«D =." 

520 PRINTTABC16)"N,K" 
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530 PRI NT "MICHEL CASO PRECEDENTEMENTE ESAMINATO, SI HA" 
54Ó PRINTTABC15)"MD = 24" 

550 PRINTTABC16)”4,3" 

560 PRINT"MM:iQE"',DATI 4 ELEMENTI,PRENDENDOLI H 3 fi" 
570 PRINT"3 ,E" POSSIBILE COSTITUIRE 24 DISPOSI-" 

580 PRINT"ZIONI DIVERSE." 

590 GOSUB2260 

600 PRINT"SE' POSSIBILE CALCOLARE IL NUMERO DI" 

610 PRINT"DISPOSIZIONI DI WS ELEMENTI DI CLASSE" 

620 PRINT'TSKS (CIOÈ"' PRESI K A K), APPLICANDO LA" 

630 PRINT"FORMULA SEGUENTE : " 

640 PRINTTAB<5> "MMD =N*CN-1 > * CN-2)*CN-3)." 

650 PRINTTAB C6 >"N,K" 

660 PR I NTTABC9) " '--,-■' " 

670 PRINTTABC 17)")SK FATTORI" 

680 PRINT"ML"ULTIMO FATTORE DEL SECONDO MEMBRO E"" 

690 PRINTTAB(15)"MC H~(K-1)3" 

700 PRINT'SMOHE SI PUÒ' ANCHE SCRIVERE PIU-' SEMPLI-" 
710 PRINT"GEMENTE" 

720 PRINTTAB(15>"MCN-K+1)" 

730 GOSUB2260 

740 PRINT"QUINDI LA FORMULA PER CALCOLARE IL" 

750 PRINT"NUMERO DI DISPOSIZIONI DI N ELEMENTI" 

760 PRINT"DI CLASSE K E' :" 

770 PRINTTAB<5)"MMD =N#<N-l>#<N-2>*_ *■<■ N-K+1 )" 

780 PRINTTAB C 6)"N,K" 

790 INPUT"SVUOI RIVEDERE QUESTI ULTIMI PASSAGGI"1RR* 

800 IFLEFT*<RRi,1)="S"THEN330 

810 PRINT" 7K E-' SEMPRE MINORE DI N. " 

320 PRINT" «SE INVECE K=N (CIOÈ" SE IN CIASCUN" 

830 PRINT"RAGGRUPPAMENTO PRENDIAMO OGNI VOLTA" 

840 PRINT'TSTUTTI GLI N ELEMENTI3 ),I RAGGRUPPA-" 

850 PRINT"MENTI STESSI PRENDONO IL NOME DI :" 

860 PRINTTAB(5)"MSPERMUTAZIONI DEGLI N ELEMENTI3" 

870 PRINT"STOICHE" K=N , NELLA FORMULA PRECEDENTE" 

880 PRINT"L'ULTIMO FATTORE E' SEMPRE 1." 

890 PRINT"M3UINDI ' " 

900 PRINTTABC10)"P =N#CN-1)* C N-2)*.*1" 

910 F'RINTTABC 11)"N" 

920 PRINT"MIL RISULTATO DI QUESTA ESPRESSIONE" 

930 PRINT"VIENE ANCHE INDICATO CON IL SIMBOLO" 

940 PRI NTTAB < 15) "M*-! !3" 

950 PRINT"MCHE SI LEGGE SU FATTTuRIALES." 

960 GOSUB2260 

970 PRI NT "SUN CLASSICO ESEMPIO DI PERMUTAZIONI E"'" 
980 PRINT"COSTITUITO DAGLI ANAGRAMMI DELLE PAROLE" 

990 PRINT"LE CUI LETTERE SONO TUTTE DIFFERENTI" 

1000 PRINT"FRA LORO." 

1010 PRINT"IMBATTI UNA PAROLA CON TALI CARATTERI-" 

1020 INPUT"STICHE",2$ 

1030 V=LENCZ$) 

1040 1=1 NF=1 
1050 NF=NF#I 
1060 1=1+1 
1070 IFIOVTHEN1050 

1080 PRINT"MCI SONO",NF,"PERMUTAZIONI" 

1090 PRINT"POSSIBILI." 

1100 PRINT"MORA TE LE MOSTRO_" 

1110 IFV>5THENPR INT "SPERO"' ATTENZIONE: SONO MOLTE! " 

1120 IFV>6THENPRINT"MC AHIME" ! ! SONO MOLTISS IME ! !)" 

1130 GOSUB2260 

1140 PRINT’LT :PRINTZ$ 
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lise j=v-i ■zz$="m"+z$ 

1160 IFJC0THEN1220 

1170 PCJ>=PC J) +1 : Ipp<J)>V-J-1THEHPC J)=0 :J=J-1 : GOTO1160 
1180 AG$="":FORJ-0TOV-1 :AG*»fìG*+MID$<22$,P <J )+3,1> 

1190 Z2$=LEFT$<ZZ$, PC J> +2)+MID$C22$ . PC.n +4 :• 

1200 HEXT.J : F'RINTAG$, 

1210 GOTO1150 

1220 PRI NT : F'R I NT " «F'FU II ! ! ! " 

1230 F'RINT : INPUT"«VUOI PROVARE CON UN' ALTRA PAROLA" ,:RR$ 
1240 I FLEFT$ C RR$.. 1 ) = "S" THENCLR : GOTO970 
1250 Q$= " 

1260 DAT A ABC, ACB .• BAC .• EGA.. CAB , CBA, RED, ADE.. BAD, BUA, DAB , DBA 
1270 DATAACD, ABC , CAD, C'DA, DAI:, OCA , BCD.. BDC, CBD, CDB, DEC, DCB 
1280 PRI NT "OCCUPIAMOCI ORA DELLE POME INAZIONI 3. " 

1290 F'RINT "««IN PRECEDENZA ABBIAMO VISTO CHE DATI 4" 

1300 F'RINT "ELEMENTI CPER ESEMPIO LE 4 LETTERE" 

1310 PRINT'-P B C D3),LE DISPOSIZIONI DI CLASSE 3" 

1320 F'RINT "SONO 

1330 PRINTTABC15>"««D = 24" 

1340 PRINTTABC16)"4,3" 

1350 PRINT"«CIOÈ' SONO I 24 RAGGRUPPAMENTI_" 

1360 GOSUB2260 : GOSUB2290 
1370 GOSUB2350 

1380 F'RINT "«OSSERVANDO LA TABELLA PUOI NOTARE CHE" 

1390 F'RINT" IN CIASCUNA COLONNA COMPAIONO SEMPRE" 

1400 F'RINT "GLI STESSI 3 ELEMENTI ORDINATI IN TUTTI" 

1410 F'RINT "E SEI I MODI POSSIBILI." 

1420 F'RINT "«CIOÈ" IN CIASCUNA COLONNA CI SONO LE" 

1430 F'RINT "PERMUTAZIONI 3 DI TRE ELEMENTI <3! =3*2*1 = " 
1440 F'RINT"=6) COSTITUITE APPUNTO DA SEI RAOGRUP-" 

1450 PRINT"PAMENTI." 

1460 GOSUB2260 : GOSUB2360 

1470 F'RINT"INVECE I 4 RAGGRUPPAMENTI ALL'INIZIO DI" 

1480 F'R I NT " OGNI COLONNA_" : F= 1 : GOSUB2260 

1490 GOSUB2290 : GOSUB2350 

1500 PRINT"«COSTITUÌSCONO LE POMEINAZIONI3 DEI 4" 

1510 F'RINT "ELEMENTI <A,B,C,D) DI CLASSE 3." 

1520 PRINT"«LE COMBINAZIONI DIFFERISCONO DALLE" 

1530 F'RINT "RAGGRUPPAMENTI SONO DIVERSI POLO SE3" 

1540 PRI NT "CONTENGONO ALMENO UN ELEMENTO DIVERSO». " 

1550 PRINT"«PEL NOSTRO CASO LE COMBINAZIONI COR-" 

1560 PRINT"RISPONDONO AI 4 RAGGRUPPAMENTI IN" 

1570 F'RINT"REVERSE. " : GOSUB2260 : GOSUB2360 

1580 F'RINT "QUINDI, OSSERVANDO LA TABELLA, LE 4 COM-" 

1590 PRINT"BINAZIONI DI CLASSE 3 MOLTIPLICATE PER" 

1600 F'RINT "LE DISPOSIZIONI DI 3 ELEMENTI (CIOÈ' LE" 

1610 PRINT"4 COLONNE PER LE 6 RIGHE),DANNO IN TO-" 

1620 PRINT"TALE LE 24 DISPOSIZIONI CHI 4 ELEMENTI" 

1630 F'RINT"DI CLASSE 3). " :GOSUB2260 

1640 PRI NT "^QUESTO E"' UN RISULTATO CHE PUÒ"' ESSERE" 

1650 PRI NT "ANCHE SCRITTO COSI'' 

1660 PRINT-'W^IUM. COMBINAZ. *NUM. PERMUT. =NUM. DI SPOSI Z. 3" 
1670 F'RINT "««CIOÈ"" 

1680 F'RINTTAE< 12) " MC *3 ! =D " 

1690 PRINTTAB<13)"4,3 4,3" 

1700 FRI NT "««Ci ANCHE" 

1710 PRINTTAB<21)"MD" 

1720 F'RINTTAB<22>"4,3" 

1730 F'R I NTT AB <15) " C =-" 

1740 PRINTTAB<16)"4,3 3!" 

1750 F'R I NT " «GENERAL I ZZANDO, SI HA_: GOSUB2260 

1760 F'RINT"."]" :pRINTTAB<21)"D" 
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1770 PRINTTAB < 22)"H,K" 

1780 PRINTTAB(15)"C =-" 

1790 PRINTTAB(16)"N,K K!" 

1800 PRI NT "MOSHE PERMETTE DI CALCOLARE IL NUMERO DI" 

1810 PRINT"COMEINAZIONI DI '412 ELEMENTI DI CLASSE BK3" 

1820 PRINT"«IL RISULTATO DEL CALCOLO VIENE ANCHE" 

1830 PRINT"DETTO COEFFICIENTE BIN0MIALE3 ED INDI-" 

1840 PRINT"CATO CON IL SIMBOLO :" 

1850 PRINTTAB <15)"«/ N \" 

1860 PRINTTAB< 15) "I I" 

1870 PRINTTAB<15)"\ K /" 

1880 PRINT"«CHE SI LEGGE SU KS." 

1890 GOSUB2260■GOSUB2360 

1900 PRI NT "MOLTIPLICANDO NUMERATORE E DENOMINATORE" 

1910 PRINT"DI QUESTA FORMULA PER" 

1920 PRINTTAB(15)" «(N-K)!" 

1930 PRINT"«SI OTTIENE 

1940 PP.INTTAB< 13)"W/ N \ N! " 

1950 PRI NTTAB ( 13) "I I =-" 

I960 PRINTTAB<13)"\ K / K!(N-K)!" 

1970 GOSUB2260 : GOSUB2360 

1980 PRINT"«PER CONVENZIONE SI PONE •" 

1990 PR I NTTAB < 5 ) " «/ 0 \ /I \ / N \" 

2000 PRINTTAB<5)"I 1=11 1=1 I 1=1" 

2010 PRINTTAB<5)"\ 0 / \ 0 / \ N /" 

2020 GOSUB2260 ; INPUT"3/UOI RIVEDERE QUESTI ULTIMI PASSAGGIR* 
2030 IFLEFT$< R*.. 1 ) = "S" THEN1250 

2040 PRINT"OK ~ ORA VEDIAMO SE SAI APPLICARE LA" 

2050 PRINT"FORMULA PER OTTENERE IL NUMERO DI COM-" 

2060 F’RINT"BINAZIONI : " 

2070 GOSUB2350:PRINT 

2080 N=INT <15#RND<1)+1) : K=INT <15#RND<1)+1) 

2090 IFN<KTHEN2080 

2100 PRINT"MOSE N="N" E K="K 

2110 PRINT"«QUANTE SONO LE COMBINAZIONI DI "N 

2120—PRINT"ELEMENTI DI CLASSE "K "?" 

2130 F=N ^ GOSUB2420:X=NF 
2140 F=K:GOSUB2420:V=NF 
2150 F=N-K : GOSUB2420 ; Z=NF 
2160 R=X/(V*Z> 

2170 INPUT "«RISULTATO =";RR 

2180 IFRR=RTHENGOSUB2360 : PRINT GOSUB2480■GOTO2220 
2190 GOSUB2360 : GOSUB2500 : PRINT"SLA RISPOSTA GIUSTA ERA" 

2200 PRINTTAB(18)"M"R 

2210 PRINT :GOTO2220 

2220 INPUT"«VUOI PROVARE ANCORA";R* 

2230 IFLEFT*<R*,1)="S"THENPRINT"13":PRINT : GOTQ2Q40 
2240 PRINT'TDK - CIAO!" 

2250 END 

2260 FRINT"«(PREMI UN TASTO)" 

2270 GETA* : IFA*=""THEN2270 
2280 RETURN 

2290 REM-STAMPA DELLE DISPOSIZIONI 

2300 PRI NT "13" :F0RK=1T04:PRINT"3":F0RJ=1T06 

2310 IFF= 1 AND J= 1THENREADC* : FRI NTTAB (6*K> "tf"C$ "3" : GOTO2330 

2320 READC* : PR INTTAB (6*K )C# 

2330 NEXTJ:NEXTK 
2340 RESTORE■RETURN 

2350 FORK= 1TO40 '■ PRI NT" ■" ; : NEXTK : RETURN 
2360 REM-CANCELLAZIONE 
2370 0$=" 

2380 PRINT ,, 35l('MsW«(!W" 
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2390 FORK=1TO15 ; PRINTO$■NEXTK 
2400 PR I NT " atìsMdlrMi'W" 

2410 RETURN 

2420 REM-CALC.FATTORIALI 

2430 1=1 : NF=1 

2440 NF=NF*I 

2450 1=1+1 

2460 IFIC=FTHEN2440 

2470 RETURN 

2480 FOR.J=1TO16 :PRINTQ*"GIUSTO !" : FORV=1TO100■NEXT■PRINTQ$" 33IUSTO !!" 

2490 FORV=ITO100 : NEXT : PRINTQT" ":NEXT: RETURN 

2500 FORJ=1TO10 : PRINTQ$"SEAGLIATO!":FORV=1TO100 :NEXT:PRINTQ$" SS EAGLIAT0 ! 1" 
2510 FORV=1TO100 : NEXT:PRINTQ*" ":NEXT : RETURN 


In questo programma vengono dapprima spiegati i concetti di disposizio¬ 
ni e di permutazioni. 

Dopo che l’operatore ha introdotto quattro simboli (letterali, numerici o 
grafici) A$, B$, C$ e D$ (linee 160-190), si ha la stampa della tabella 
contenente tutte le disposizioni dei 4 elementi di classe 3. Poi viene for¬ 
nita la formula che permette di calcolare il numero di disposizioni di N 
elementi di classe K. 

Come caso particolare delle disposizioni (quando N = K) si perviene alle 
permutazioni e al concetto di fattoriale. 

A questo punto, come applicazione, battendo sulla tastiera una qualsiasi 
parola, il Commodore 64 fornisce tutti i possibili anagrammi (cioè le 
permutazioni) della parola dopo aver calcolato quanti essi siano. 

Per l’elaborazione degli anagrammi (linee 1140-1220) abbiamo usato una 
ingegnosa routine ideata da S.H. Binns. 1 
La parola da anagrammare è Z$. 

Essa viene trasformata in una seconda stringa ZZ$ uguale alla precedente 
ma preceduta da due asterischi (che hanno lo scopo di impedire che l’ar¬ 
gomento di LEFT$ nella linea 1190 divenga nullo). 

La variabile J corrisponde alla lunghezza della parola iniziale, meno 
uno. 

La variabile P(J) non è dimensionata, e se desiderate anagrammare pa¬ 
role composte da più di 10 lettere non avete che da introdurre il dimen¬ 
sionamento. 

In 1180 l’anagramma AG$ viene “azzerato” prima di passare all’elabo¬ 
razione deH’anagramma successivo. L’elaborazione termina non appena 
la variabile J assume il valore -1. 

La trattazione del calcolo combinatorio viene completata in questo 
programma con lo studio delle combinazioni. 

Questa volta il quadro delle disposizioni viene eseguito con la tecnica dei 
DATA, in modo da poterle stampare una volta in modo normale (con 


È pubblicata nella posta dei lettori della rivista inglese Practical computing (luglio 1980). 
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due cicli FOR NEXT uno dentro l’altro), ed una seconda volta con i rag¬ 
gruppamenti all’inizio di ogni colonna stampati in reverse per metterli in 
evidenza. 

Ciò si ottiene con il flag F = 1 nella linea 1480. La parte descrittiva in 
cui si spiega come si perviene al calcolo dei coefficienti binomiali, sfrut¬ 
ta la subroutine 2360 nella quale lasciando intatta la metà superiore del¬ 
lo schermo, viene cancellata solo quella inferiore. 

Ciò è utile quando, scritta una formula o una tabella, la si vuole com¬ 
mentare in modo che essa rimanga visibile durante il commento. Alla fi¬ 
ne, scelti due numeri (N e K con N>;K) a caso, il Commodore 64 propo¬ 
ne all’operatore di calcolare il numero di combinazioni di N elementi di 
classe K. Dopo aver controllato se la risposta è giusta o sbagliata, a cau¬ 
sa delle subroutine 2480 e 2500, si ha una conferma lampeggiante. 


CALCOLO DELLE PROBABILITÀ 


Questa è la seconda e ultima “lezione” sul calcolo delle probabilità. 
La considero un completamento della precedente perché spesso il nume¬ 
ro di eventi possibili o favorevoli si ottiene applicando i concetti del cal¬ 
colo combinatorio. 

Sarebbe forse stato opportuno, per esaurire l’argomento, sviluppare an¬ 
che un programma che trattasse le disposizioni e combinazioni con ripe¬ 
tizione. 

Lascio al lettore volonteroso questo compito del resto non difficile. 


10 REM COPYRIGHT IH BASIC 
12 REM VIA SEZ2E 22 LATINA 

14 REM TEL. 487631 

15 CLR : PRINT'TW" 


20 

POKE53280.. 10 

POKE53281 , 3 



r K L N Ztf * * * «►. * A :***»:•** * * * * * « « 4 * * ■¥ » *■ * A * * « ♦ » 

30 

F'R I NT" S^l 


3*1" 

35 

PRINT" 3*5 

WM Ili 1 li® 

« m mm st*5" 

40 

F'R I NT " 3*5 

1 111 1 : 

$ I 1 1 1 3*5" 

45 

PRINT" 3*5 


% m i 11 a**" 

50 

F'RINT" H*5 

1 1 W8& 

mm mm « 3 * 5 " 

55 

PRINT" SfB 


3*1" 

60 

PRINT"3*5 

DEL L. 

E ** 3*5" 

65 

PRINT" 3*5 


3**" 

70 

PRINT"SIS » 

Wm Ili il MM M 

1 1 m mm mm 3 * 1 " 

75 

PRINT" Sta si 

1 1 1 S il 11 ì. 1 

$j ifé ig: & 

80 

print" 3*5 m 

WM 1 :i ì. 1 WM 1 

1111 mm 3 * 5 " 

85 

PRINT M ata 1 

iiì 

i il 1 1 il 3**" 

90 

95 

PRINT" :r*5 
print" 3*:***=* 

* ********A*:***+ + ** 

3*1" 

■.'***:*;****:*.***:*:**■" 


100 F'R INTTAB < 11 ) "MRWK PREM I UN TASTO > ■“ 

105 GETl=l$ : I Fh$ = " " THEN105 

110 PRINT"PRENDIAMO IN CONSIDERAZIONE UN 


EVENTO" 
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130 F'RINT"Lfi CUI POSSIBILITÀ' HI AVVENIRE DIPENDA" 
140 PRINT"ESCLUSIVAMENTE DAL CASO." 

150 PRINT"PER ESEMPIO LA POSSIBILITÀ' CHE GETTAN-" 
160 PRINT"DO IN ARIA UNA MONETA ESCA TESTA, 0 CHE" 
170 PRINT"TIRANDO UN DADO ESCA 5, ECC." 

180 GOSUB60O00:PRINT"3" 

190 PRINT"INDICHIAMO CON !*I3 IL NUMERO DI TUTTI" 

200 PRINT"GLI EVENTI POSSIBILI <2 NEL CASO DELLA" 
210 PRI NT "MONETA E 6 NEL CASO DEL DADO), E CON »S" 
220 F'RINT"IL NUMERO DI EVENTI FAVOREVOLI FRA" 

230 PRINT"TUTTI QUELLI POSSIBILI (F=l SIA NEL" 

240 PRINT"CASO DELLA MONETA CHE DEL DADO)." : PRINT 
250 F'RINT"SI DEFINISCE PROBABILITÀ' DI UN EVENTQ3" 
260 PRINT"CIOÈ' LA PROBABILITÀ' CHE ESSO HA DI" 

270 PRINT"VERIFICARSI, IL RAPPORTO" 

28u F'R I NT : F'R I NT : F'R INTSPC ( 19 > " F " 

290 PRINTSPC<14)"P = -" 

300 PRI NTSPC (19) " N " : F'R I NT : F'R I NT 

310 PRINT"IL RISULTATO DI TALE RAPPORTO E' UN" 

320 PRINT"NUMERO CHE RISULTA SEMPRE COMPRESO FRA" 
330 PRINT"ZERO ED UNO." 

340 GOSUB60000 : PR I NT " TJ" 

350 PRINT"NEL PRIMO CASO LIMITE <P=0) AVREMO LA" 

360 PRINT"CERTEZZA CHE L'EVENTO NON POTRÀ' VERI-" 
370 PRINT"FICARSI MAI, MENTRE NELL'ALTRO CASO" 

380 FRINT"LIMITE <P=1> L'EVENTO AVVERRÀ SICURA-" 
390 FRINT"MENTE." 

400 PRINT "ESEGUENDO LA DIVISIONE F/N , LE PRIME" 

410 PRINT"DUE CIFRE DOPO LH VIRGOLA RAPPRESENTANO" 
420 PRINT"LA PROBABILITÀ IN PERCENTUALE." 

430 F'R I NT " MSESEMP103" 

440 PRINT"CALCOLIAMO LA PROBABILITÀ' CHE GETTAN-" 
450 PRINT"DO UN DADO ESCA UN NUMERO MAGGIORE DI 4" 
460 PRINTTAB<5>"MOLI EVENTI FAVOREVOLI SONO 2" 

470 F'RINTTAB< 10)"<IL CINQUE E IL SEI)" 

480 PRINTTAB(5)"MENTRE GLI EVENTI POSSIBILI SONO 6" 
490 PRINTTABC10)"(LE SEI FACCE DEL DADO)" 

500 GOSUB68000 

510 PRI NT "."LA PROBABILITÀ' E' QUINDI ■ " 

520 PRINT"?») 2" 

530 PRINT" P--= .3333333." 

540 PRINT" 6" 

550 F'RINT"MKCIOE' P=33K (CIRCA) 

552 PRINT"«INFATTI LE PRIME DUE CIFRE DOPO LA VIR-" 
554 PRINT"GOLA ESPRIMONO LA PROBABILITÀ IN PER-" 
556 PRI NT" CENTI.! ALE. " 

560 PRINT"««QUESTA E" LA DEFINIZIONE OTE0RICA3 DI" 
570 PRINT"PROBABILITÀ' E PUÒ' ESSERE CALCOLATA" 

580 PR INTERI MAS CHE L'EVENTO SI VERIFICHI." 

590 PRINT"«ACCINGIAMOCI ORA A VERIFICARE SPERINE!)-" 
600 PRINT"TALMENTE QUANTO ABBIAMO ASSERITO." 

610 GOSUB60000 

620 PRI NT "."PRENDI AMO UN DADO E LANCIAMOLO UN" 

630 PRINT"CERTO NUMERO DI VOLTE." 

640 INPUT"QUANTE VOLTE LO VUOI LANCIARE",A 
658 -BIMD(A) 

660 PRINT"WDK - PREMI WSPACE3 PER LANCIARE IL DADO" 

670 GÈ TI* IFI$=""THEN670 

675 F'RINT:PRINT:PRINT 

680 GOSUB40020 

685 PR I NT " TmTIT]" 

690 GOTO670 
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700 FRINÌ"MMMMSlHAI LANCIATO IL DADO"; A;"VOLTE TOTAL12-" 
710 PRINT"ZANDO I SEGUENTI RISULTATI =" 

715 FRINT : FRINT 

720 FORK=0TOT-2:PRINTD(K); 

723 IFU(K )>4THEN.J=J+1 

724 NEXTK 

725 FRINT 

730 G 0 S U E fa 0000 

750 FRINÌ"□SONO STATI ESEGUITI";Al"LAHCI,QUINDI" 

760 PRINTTAB(15)" M«N="; A 

770 PRINT"M«DEI QUALI SOLTANTO";J;"ERANO SUPERIORI“ 

780 FRI NT "A 4 ..QUINDI" 

790 PRINTTAB d 5)" M«F=";J 

800 PRINT"MWIL RAPPORTO F/N FORNISCE COME RISULTATO" 

810 Q=.J/A 

820 PRINTTAB<1o >" MBF(N) = ";Q 

830 PRINT"M«CHE VIENE DEFINITA !3FREQUENZA8 DEL-" 

840 PRINT"L'EVENTO SU SNS PROVE." 

850 GOSUB60000 

860 FRI NT "□LA PROBABILITÀ' (CALCOLABILE !3PRIMR3" 

870 FRI NT "DEI LANCI) ERA ftP=. 33333333 MENTRE LA" 

880 PRINT"FREQUENZA DELL 'EVENTO SU"; A;"PROVE " 

890 PRINT"(OTTENUTA 13B0P03 I LANCI) E'" 

900 PRINTTAB(10)"MFC;A; ")=";Q 

910 PRINT"MULINA LEGGE FONDAMENTALE DEL CALCOLO" 

920 PRINT"DELLE PROBABILITÀ' (LEGGE DEI GRANDI" 

930 PRINT"NUMERI),AFFERMA CHE :" 

940 PRINT"MSFIU' ALTO E' IL NUMERO N DI PROVE" 

950 PRINT"EFFETTUAT0 E PIU" LA FREQUENZA F(N)" 

960 PRINT"SI AVVICINA AL VALORE TEORICO P" 

970 PRINT"M«3VU0I RIPROVARE A LANCIARE IL DADO PER" 

980 PRINT"UN NUMERO MAGGIORE DI VOLTE,PER VERIFI-" 

990 INPUT"CARE CHE F(N) -> P";R$ 

1000 IFLEFT$(RI, 1 ) - " S"THENCLR:GOTO620 
1010 GOSUE60000 

1020 PRI NT "ITERO" SE IL NUMERO DI LANCI E BASSO" 

1030 PRINT"NON CI POSSIAMO ASPETTARE CHE F(N) SIA" 

1040 PRINT"UGUALE 0 QUASI UGUALE A P." 

1050 PRINT"MVALE INOLTRE UN'ALTRA IMPORTANTISSIMA" 

1060 PRINT"LEGGE: 131L CASO NON HA MEMORIA !!" 

1070 PRINT"SE PERCIÒ" ANCHE SE PER 10000 VOLTE NON" 

1080 FRINT"SONO MAI USCITI NUMERI PIU' ALTI DI 4" 

1090 PRINT"LA PROBABILITÀ" CHE CIO' AVVENGA NEL" 

1100 PRINT"LANCIO SUCCESSIVO RESTA SEMPRE" 

1110 PRINTTAB(15)"MP=.3333333" 

1120 PRINTTAB(30)" MMSFINEI" 

2000 END 

40000 REM-SUBROUTINE PER LANCIO DADO 

40020 D=INT(RND(1)*6)+l:D(T)=D:T=T+1 ; IFT*A+1THENGOTO700 
40030 0NDG0SUB41540,41520,41500,41530,41530,41530 
40040 0NBG0SUB41510,41540,41510,41540,41510,41530 
40050 0NDG0SUB41540,41500,41520,41530,41530,41530 
40060 RETURN 

41500 PRINTTAB(15)" :* ": RETURN 

41510 PR I NTTAB(15) " Zi • " ■ RETURN 
41520 PRINTTAB(15)"S RETURN 

41530 PRINTTAB(15)":* •": RETURN 
4 1 540 PR I NTTAB ( 15 ) " Zi " : RETURN 
60000 PRINT"«(PREMI UN TASTO PER SEGUITARE)" 

60010 GETA$: IFA*=""THEH60010 
60020 RETURN 
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Il programma è di facilissima interpretazione: la prima parte è descritti¬ 
va, e vengono spiegati i concetti di probabilità teorica e di frequenza 
sperimentale. 

Alla fine viene preso in considerazione un dado e l’operatore deve stabi¬ 
lire quante volte Io vuole lanciare. 

Poi il dato viene effettivamente lanciato (si fa per dire: comunque esso 
viene visualizzato sullo schermo) per il numero di volte stabilito, e viene 
calcolata la frequenza sperimentale registrata sulla totalità dei lanci. 

Si può constatare in questo modo che la frequenza tende alla probabili¬ 
tà, all’aumentare del numero dei lanci. 

La subroutine per la visualizzazione del dato è la 40000. 

Prima viene scelto un valore a caso D compreso fra 1 e 6. 

A seconda del valore di D le linee 40030, 40040, 40050 inviano il Com¬ 
modore 64 ad ulteriori subroutine (41500-51540) per formare tre stringhe 
(di tre caratteri ciascuno) che stampate una sotto l’altra costituiscono la 
faccia del dado. 


MATEMATICA PER I PIÙ ESPERTI 


L’intestazione del paragrafo è forse un po’ esagerata: i tre programmi 
che seguono sono comunque alla portata di uno studente delle scuole se¬ 
condarie. 

Si tratta di un programma sul calcolo con le matrici, di uno sulle coni¬ 
che in forma generica, e di uno sulla esecuzione del grafico di una fun¬ 
zione. 

Con essi si conclude la prima parte di questo volume dedicata alla mate¬ 
matica. 


Calcolo con le matrici 

Una matrice è una tabella di numeri disposti a rettangolo su un numero 
r di righe e un numero c di colonne. 

Per esempio 


3 

-5 

0 

8 

-1 

4 

2 

2 

7 

1 

0 

9 


è una matrice con 3 righe e 4 colonne. Ad essa non corrisponde alcun 
valore numerico, tranne il caso in cui il numero di righe è uguale a quel¬ 
lo delle colonne, e allora il risultato si chiama determinante e la matrice 
viene detta quadrata. 
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Le matrici possono essere combinate fra loro con operazioni di somma, 
sottrazione e prodotto. 

Questo programma permette di eseguire le operazioni con le matrici e di 
calcolare il determinante delle matrici quadrate fino al quarto ordine. 


10 REM COPYRIGHT IH BASIC 
12 REM VIA SE22E 22 LATINA 
14 REM TEL. 487631 
16 POKE532S0,10■PDKE53281,3 
20 CLR : PRINT'TE" 

40 F'R INTTAB ( 8 ) "MMECALCOLO CON LE MArRICI!" 

50 PRIHT"MMSCEGLI FRA LE SEGUENTI POSSIBILITÀ' : " 

60 PRINT"M 1-SOMMA" 

70 FRINT" 2-DIFFERENZA" 

80 PRINT" 3-PRODOTTO SCALARE FRA MATRICI" 

90 PRINT" 4-TRASPOSI2IONE DI UNA MATRICE" 

100 PRINT" 5-S0LU21 ONE DI UNA MATRICE QUADRATA" 

110 PRINT"MUCOSA SCEGLI ?" 

120 GETA-f • IFA$=" "THEN120 
130 A=VALCA* >: IFA<1QRA>5THEN120 
140 ONAGOTO1000 , 2000 > 30004000.. 5000 
1000 REM-SOMMA FRA MATRICI 
1010 GOSUB11000 

1020 PRINT'LTOK - LA MATRICE RISULTANTE DALLA SOMMA" 

1030 PRINT"E' •" : PRINT :GOSUB12000 :PRINT PRINT 
1040 FORK=1TOR : FORJ=1 TOC 
1050 C < K,J > =A(K,J)+B<K,J> 

1060 PRINTCCK, J); 

1070 NEXTJ : PR INT ■ PR INT : NEXTK 
1080 PRINT:GOSUB12080 :PRINT: GOTO13000 
2000 REM-DIFFERENZA FRA MATRICI 
2010 GOSUB11000 

2020 PRINT"DDK - LA MATRICE RISULTANTE DALLA BIFFE-" 

2030 PRINT"RENZA E' :"=PRINT•GOSUB12000 :PRINT :PRINT 
204O FORK*1TOR:FORJ*1TOC 
2050 C(K.. J)=A<K, J)-B<K, J> 

2060 PRINTC<K,J>; 

2070 NEXTJ:PRINT•PRINT : NEXTK 
2080 PRINT :GOSUB12000 :PRINT = GOTO13000 
3000 REM-PRODOTTO SCALARE FRA MATRICI 
3010 PRINT"Z3SI1 “ MATRICE"" 

3015 INPUT"QUANTE RIGHE";RI 
3020 INPUT " MQIJANTE COLONNE " ; C1 
3025 PRINT"M32* MATRICE"" 

3030 INPUT"MKUANTE RIGHE";R2 

3040 I NPUT"MQIJANTE COLONNE " ; C2 

3060 PRINT"ZElK - ORA BATTI GLI ELEMENTI " 

3070 PRINT :GOSUB12000 :PRINT :PRI NT 

3080 N=R2 : IFC1>R2THENN=C1 

3085 DI MA < R1, N ), B < N, C2 ), C < R1, C2 > 

3090 PRINT"MSI ■ MATRICE"":PRINT 
3100 R=R1 :C=C1 :H=2 : GOSUB10000 
3110 PRINT"MS2‘ MATRICE!"■PRINT 
3120 R=R2 : C=C2 : H=1 : GOSUB10000 

3130 PRINT"rJDK - LA MATRICE RISULTANTE E' :"•PRINT GOSUB12000:PRINT:PRINT 
3140 FORK»1TOR1 :FORJ=1T0C2 
3150 FORNI=1T0N 

3160 C(K / J> =C(K,J>+A<K,Nl>*B<NI,J> 

3170 NEXTN1 
3180 PRINTCCK,J); 
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3130 NEXTJ : PRINT : PRINT : NEXTK 

3200 PRINT : PRINT : G03UB12000 :PRINT : GOTO13000 

4000 REM-MRTRICE TRASPOSTA 

4010 INPUT"HQUANTE RIGHE HR LR MATRICE";R 

4020 INPUT"ME QUANTE COLONNE";C 

4030 DIMR<R,C),B<C,R> 

4040 PRINT"rJDK - BATTI GLI ELEMENTI :" : PRINT : GOSUB 12000 : PRINT ; PRINT 
4050 H=2:GOSUB10000 

4060 PRINT"DDK - LA MATRICE INVERSA E" :":PRINT : GOSUB12000SPRINT-PRINT 
4030 FORK=1TOC :FORJ=1TOR 
4100 B<K,J>=A<J,K) 

4110 PRINTBCK,J); 

4120 NEXTJ:PRINT :PRINT :NEXTK 
4130 PRINT■GOSUB12000 :PRINT : GOTO13000 
5000 REM-SOLUZ.MATRICE QUADRATA 

5010 PRINT "."POSSO RISOLVERE MATRICI QUADRATE FINO" 

5020 PRINT"AL 4' ORDINE." 

5025 DIMA<4,4) 

5030 INPUT"WQIJALE ORDINE TI INTERESSA";N 

5040 IFN<2ORH>4THENPRINT" BUON ESSERE SCIOCCO!":GOTG5030 

5050 PRINT"DJK - ORA BATTI TUTTI GLI ELEMENTI : " : PRINT : GOSUB12000 : PRINT : PRINT 

5060 N=INT<N)-l:ONNGOTO6000,7000,8000 

6000 R=2^ C=2:H=2:GOSUB10000 

6010 D=A< 1,1 >#A<2,2)-A<1,2>*A<:2,1 > 

6020 F'RINT'MIL DETERMINANTE E'' : " 

6030 PRINTTAB<15>":«Ml = "D 

6040 PRINT :PRINT :GOSUB12000 : GOTO13000 

7000 R=3 : C=3 : H=2:GOSUB10000 

7010 D1=R<1,1>#<A<2,2)*R<3,3)-R<;2,3>#A<3,2>) 

7020 D2=fl<l,2)#<fl<3,1>*A<2,3>-A<2,1>*R<3,3>> 

7030 D3=A<1,3>#<A<2,1>#A<3,2>-A<3,1>#A<2,2>> 

7040 D=D1+D2+D3 

7050 PRINT'MIL DETERMINANTE E'' :" 

7060 PRINTTAB<15>"MHD = "D 

7070 PRINT :PRINT :GOSUB12000 : GOTO13000 

8000 R=4:C=4 : H=2 : GOSUB10000 

8010 D1=A < 2 > 2)# < fi < 3,3}#fi< 4,4 >-R < 4,3 > #fi(3,4)) 

8020 D2=fì<2, 2)#fl(4, 4)-fì<4,2>#fì(3, 4) ) 

8030 D3=A<2, 4)*<A<3,2)*fl<4,3>-A(4,2)#fi<3,3)) 

8040 D4=fl(2,1)*(A(3,3)*A(4,4)-A(4,3)*A(3 J 4)) 

8050 D5=fl(2,3>#<fì<3,l>*fl<4,4>-fi<4, 1>*fi<3,4>) 

8060 B6=R<2,4)*<A<3> 1>*fi<4,3>-fi<4, l>#fi<3,3>> 

8070 D7=R< 1,1 > % < D1-D2+D3 > : D8=A < 1,2 > % < D4-D5+D6 ) 

3080 Cl=fi<2, l>#<R<3,2)#fl<4,4)-fi<4,2>*R<3, 4>) 

8030 C2=A < 2,2)# <fì < 3 > 1 )#fì<4,4>~fi<4, 1>#R<3,4>> 

3100 C3=fi<2,4>#<fì<3,1)*fl<4,2)~A<4,1>#A<3',2>> 

3110 C4=fi<2,1 )*<fi<3, 2>fcfi<4, 3)-fi<4, 2)*fì(3, 3> ) 

8120 C5=A<2,2>#<A<3,l)*A<4,3>-fl<4,l)*fi<3,3>> 

8130 C6=fi<2,3)*(fl(3/1 >*fi<4,2)-fì<4,1>#R<3,2>> 

3140 C7=A <1,3 :> % < C1-C2+C3 > : C8=A <1,4 > * < C4-C5+C6 ) 

8150 B=B7-D8+C7-C8 

8160 PRINT"□IL DETERMINANTE E' ■" 

8170 PRIHTTAB<15)" BMB = "D 
3180 PRINT•PRINT :GOSUB12000 : GOTO13000 
3200 END 

10000 REM-RIEMPIMENTO MATRICI 
10010 FORK=lTOR 
10020 FORJ=lTOC 

10030 IFH=1 THENPRINT"S"K"" RIGA E"J"‘ COLONNA "i ’■ INPUTBCK, J) 

10040 IFH=2THENPRINT"W"K"* RIGfi E"J"* COLONNA"; : INPUTfl<K,J> 

10O50 NEXTJ:NEXTK: RETURN 
11000 REM-SOMMA 0 SOTTRAZIONE 
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11010 FRI NT "."LE DUE MATRICI DEVONO AVERE LO STESSO" 

11020 FRINT"NUMERO DI RIGHE E COLONNE."=GOSUB12000 
11030 INPUT"«QUANTE SONO LE RIGHE";R 
11040 INPUT"ME LE COLONNE";C 
11050 DI MA < R, C >, B < R, C ), C < R.. C > 

11060 F'RINT"nOK - ORA BATTI I VALORI DEGLI ELEMENTI" : GOSUB12000 
11070 F0RH=1T02 
11080 F'R I NT " MS" H " IP MATRI CES" 

11090 GOSUB10000 
11100 NEXTH 
11110 RETURN 

12000 REM-LINEA ORIZZONTALE 
12010 A$="■":FORT=1T040 :PRINTA#j •NEXTT 
12020 RETURN 

13000 REM-RICHIESTA DI CONTINUAZIONE 
13010 F'RINT"MWVUOI SEGUITARE ?" 

13020 GETAÌ : IFA$=""THEN13020 
13030 IFA$="S"THEN10 
13040 FRI NT " rJOK - CIAO!!" 

Fino alla linea 140 c’è la descrizione delle opzioni e l’invio alle linee 
1000, 2000, 3000, 4000 e 5000 a seconda del calcolo che si vuole fare. 11 
programma principale finisce alla linea 8200: poi c’è la subroutine 10000 
per il riempimento delle matrici, la 11000 per dimensionare e riempire le 
matrici nelle operazioni di somma e sottrazione, la 12000 per tracciare le 
sbarre orizzontali, ed infine in 13000 c’è la richiesta di continuazione. 
Vediamo come si realizza la somma fra matrici (linea 1000). 

La 1010 invia il Commodore 64 alla linea 11000 dove bisogna specificare 
il numero di righe è colonne delle due matrici (linee 11030 e 11040). Poi 
vengono dimensionate tre variabili con doppio indice: A e B che servono 
per accogliere gli elementi delle due matrici, più la variabile C che serve 
per ricevere i risultati dell’operazione di somma. 

Nelle 11070-11100 con un ciclo FOR NEXT vengono trattate prima la 
matrice A e poi la matrice B facendo ricorso alla subroutine 10000. 
Questa, come già detto, serve a riempire ciascuna matrice con i valori 
battuti dall’operatore. 

Poi si torna alle 1020 e 1030 (che non hanno bisogno di commento), e 
finalmente con un ciclo FOR NEXT viene costituita la matrice C con la 
somma dei valori corrispondenti che si trovano in A e B (linea 1050). 
Man mano che tali risultati sono calcolati, vengono anche stampati gra¬ 
zie al comando della linea 1060. 

11 punto e virgola serve per stampare consecutivamente gli elementi di 
una stessa riga. 

Alla fine si ha il salto in 13000 per la richiesta di proseguimento. 

La differenza fra matrici (linea 2000) viene ottenuta con lo stesso identi¬ 
co procedimento. Passiamo al prodotto scalare fra matrici. 

Siano date per esempio le due matrici 
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3 

1 

2 


5 

4 

1 


2 

0 

1 

4 

3 

1 

0 

2 

1 

2 

3 

4 


Il risultato del loro prodotto scalare è 

= A2 f 3 x B3 j4 

cioè una matrice con 2 righe e 4 colonne (tante righe quante sono quelle 
del primo fattore e tante colonne quante sono quelle del secondo fatto¬ 
re) i cui elementi si trovano con il procedimento seguente 


B 3 > 4 



2 

0 

1 

4 


3 

1 

0 

2 


1 

2 

3 

4 


\ 

\ 

1 

\ 

3 1 2 


11 

5 

9 

22 

5 4 1 


24 

6 

8 

32 


A2,3 C2>4 


11 = 3 - 2 + 1-3 + 2-1 

5 = 30 + 1 • 1 +2-2 
9 = 3-1 + 1 ■ 0 + 2- 3 

22 = 3-4+ 1 -2 + 2-4 
24 = 5-2 + 4-3+1-1 

6 = 50 + 4-1 + 1- 2 
8 = 5-1+40+1-3 

32 = 5-4 + 4-2+1-4 

Nel nostro esempio il numero di colonne del primo fattore è uguale al 
numero di righe del secondo fattore. 

Se non lo sono occorre modificare una delle due matrici aggiungendo 
una o più linee di zeri. 

Questa operazione non gode della proprietà commutativa.' 

Vediamo ora come questo procedimento viene attuato a partire dalla li¬ 
nea 3000. 


Mentre gode della proprietà associativa e di quella distributiva rispetto alla somma. 




70 


ANCORA MATEMATICA 


Dopo aver introdotto il numero di righe e colonne di ciascuna matrice 
(3010-3060), viene indicato con N il più grande dei numeri CI (colonne 
prima matrice) e R2 (righe seconda matrice), nella linea 3080, in modo 
che il dimensionamento delle due matrici A e B non è 


A( R, ,C, ) B(R 2 ,C 2 ) 


ma 


A(R,,N) B(N,C 2 ) 

Altrimenti si avrebbe una segnalazione di errore nella fase di calcolo del¬ 
la 


C(R,,C 2 ) 


In 3100 viene posto R = R,,eC = C,,eper mezzo della 10000 si ha il 
riempimento della matrice A. 

Poi in 3120 viene posto R = R 2 e C = C 2 e sempre con la 10000 si ha il 
riempimento della matrice B. 

Si noti il flag H che a seconda del suo valore (1 o 2) serve nella 10000 
per riempire alternativamente la matrice A o la B. Infine con due cicli 
FOR NEXT uno dentro l’altro (3140-^3190), vengono eseguiti i prodotti 
e le somme per ottenere C. La 3180 stampa gli elementi di C man mano 
che sono calcolati. 

La matrice trasposta di una data è quella in cui le righe sono invertite 
con le colonne, e perciò per esempio la trasposta di 

3 2 1 
0 1 2 

è la 


3 

0 

2 

1 

1 

2 


Nelle linee 4000 e seguenti viene attuata la trasposizione di una matrice: 
in 4030 si ha il dimensionamento della matrice A da trasformare, e di 
quella B trasposta. 

In 4050, dopo aver posto il flag H = 2, si ha il riempimento della matri¬ 
ce A per mezzo della subroutine 10000. 

Infine con un doppio ciclo FOR NEXT (4090-4120) avviene la trasposi¬ 
zione e la stampa di B. 
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Non rimane che esaminare le linee 5000 e seguenti per il calcolo delle 
matrici quadrate. 

Onestamente debbo ammettere di non essere riuscito a realizzare un pro¬ 
cedimento in Basic che consentisse il calcolo del determinante di una 
matrice quadrata di ordine qualsiasi, nonostante mi ci sia impegnato se¬ 
riamente per un paio di giorni. 

Ho quindi dovuto ripiegare sul calcolo delle matrici quadrate fino al 
quarto ordine ottenute semplicemente con il primo teorema di Laplace. 
In 6010 c’è il calcolo della matrice del secondo ordine, in 7010-7040 
quella del terzo ordine e in 8010-8150 quella del quarto ordine. 

Non è però difficile calcolare anche le matrici del quinto ordine con il 
teorema di Laplace. 

Si abbia per esempio la matrice quadrata 

2 13 5 4 

1 2 3-62 

3 17 4 5 

6 4 13 3 3 

9 5 20 6 9 

Consideriamo gli elementi della prima riga (2, 1, 3, 5, 4) e i corrispon¬ 
denti minori complementari (cioè le matrici quadrate del quarto ordine 
che si ottengono di volta in volta nelle restanti quattro righe, cancellan¬ 
do la colonna cui appartiene l’elemento considerato). 

Il risultato A della matrice di partenza è 


A = 2- 

2 3-6 2 

17 4 5 

-1- 

1 3-6 2 

3 7 4 5 


4 13 3 3 

5 20 6 9 


6 13 3 3 

9 20 6 9 



1 

2 

-6 

2 


1 

2 

3 

2 


1 

2 

3 

-6 

+ 3- 

3 

1 

4 

5 

-5- 

3 

1 

7 

5 

+ 4- 

3 

1 

7 

4 


6 

4 

3 

3 


6 

4 

13 

3 


6 

4 

13 

3 


9 

5 

6 

9 


9 

5 

20 

9 


9 

5 

20 

6 


dove le matrici del quarto ordine possono essere rapidamente calcolate 
con il nostro programma. Per la cronaca si dovrà ottenere 

A = -72 

Si noti che gli elementi della prima riga vanno presi con segni alternati 
cominciando con il segno più. 
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L’applicazione del teorema di Laplace è però lunga e tediosa. Da un ar¬ 
ticolo di Mark Walker su Practical Computing abbiamo però tratto una 
interessante routine che permette il calcolo di matrici quadrate di ordine 
qualsiasi. 


1J0 REM COPYRIGHT IN BASIC 
110 REM VIA SEZZE 22 LATINA 
120 REM TEL. 487631 
130 CLR : PRINT'TM" 

140 POKE532O0,10•P0KE53281,3 

1S0 PRINT" CALCOLO DETERMINANTI DI ORDINE N" 

160 FORK= 1TO40 : PRI NT " *-3" ; : HEXT 

170 INPU""WtìtìJUALE ORDINE TI INTERESSO"JN 

180 DIMA < N+1.N+l) 

190 PRINT "DJ K - ORA DAMMI GLI ELEMENTI DELLA" 

£00 PRINT"MATRICE : " ; PRINT 
210 REM INGRESSO DATI 
220 POR-J= 1TON : FORK= 1TUN 

230 PRINT : PRINTK"" RIGA E"J"' COLONNA"; : INPUTACK,J) 

240 NEXTK/J 

250 REM VISUALIZZAZIONE MATRICE 
260 PRINT "LI" 

270 F0RK=1TON:FORJ=1TON 

280 PR I NT A r. .. I t-Ett -4- PRINT A(K.J); 

290 NEXTJ = PRINT :NEXTK 
300 PRINT"MWVA BENE ?" 

310 GETQ*^IFQ$=""THEN310 
320 IFQi="S"THEN350 

330 PRINT"WtìTLLORA RIDAMMI I DATI CORRETTI" 

340 FGRK=1T02000 : NEXT ; GOT0210 
350 REM INIZIO CALCOLO 
368 D=1 

370 REM SPOSTAMENTO DEL TERMINE MAX DELLA RIGA K SULLA DIAGONALE 
380 F0RK=1TON 
390 R=K : M=A < K .■ K > 

400 F0RJ=K+1T0N 
410 IFA(K,J ><=MTHEN430 
420 M=At.K, J) : R=.J 
430 NEXTJ , 

440 REM SE E' 0 ALLORA STOP 
450 IF M=0 THEN D=0•G0T0660 
460 IFR=KTHEN540 

470 REM IL COEFF. MAX NON E' SULLA DIAGONALE.. PERCIÒ"' SCAMBIA LE RIGHE 
480 FQRJ=1T0N 

490 M=A ( J , K > '• A (. J.. K >-A < J.. R ) : A < J > R > -M 
50O NEXTJ 

510 REM CAMBIO SEGNO DEL DETER. SE LE RIGHE SONO STATE SCAMBIATE 
520 Ii=-D 

530 REM ELIMINAZIONE DEL FATTORE DI SCALA 
540 B=D*A<K,K) 

550 IFK=NTHEN66@ 

560 REM DIVISIONE PER RENDERE =1 L'ELEMENTO PIVOT 

578 F0RH=NTOKSTEP-1 

580 A < K.. H > = A ( K , H > /A < K , K ) 

590 NEXTH 
600 FORH=K+1TON 

610 REM GRUPPO DI MOLTIPLICAZIONI PER LA NUOVA RIGA 
620 m=-a<:h, PO 
630 F0RJ=KT0N 

640 A < H .• J ) = A < H , J > + A < K .■ J ) *M 
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650 NEXTJjH,K 

660 PRINT"MIL VALORE DEL DETERMINANTE E' ■ "D 
670 FRI NT" «((ANCORA ?" 

680 GETQ*: IFQ$=""THEN680 
690 IFQ$="S"THEN130 
700 PRINT"OK - CIAO!" 


Per sommare o sottrarre tra loro due matrici A(kJ) e B(k,j ) dello stesso 
ordine basta utilizzare la routine seguente: 

100 FOR K = 1 TO N 
110 FOR J = 1 TO N 

120 C(K,J) = A(K,J) + B(K,J):REM NEL CASO DELLA SOMMA 
130 D(K,J) = A(K,J)-B(K,J):REM NEL CASO DELLA DIFFERENZA 
140 NEXT J,K 


Nel caso del prodotto le due matrici saranno del tipo A(k,r) B(r,j) cioè il 
numero di colonne della prima deve essere uguale al numero di righe 
della seconda. Per il calcolo si può applicare la seguente routine: 

100 FOR K = 1 TO N 
110 FOR J = 1 TO N 
120 FOR R = 1 TO N 
130 P(K,J) = P(K,J) + A(K,R) * B(R,J) 

140 NEXT R,J,K 

Ancora, per ottenere la trasposta di una matrice A(k,j), cioè una matrice 
uguale alla precedente, ma con righe e colonne scambiate tra loro, 

100 FOR K = 1 TO N 
110 FOR J = 1 TO N 
120 A(K,J) = A(J,K) 

130 NEXT J,K 

Si noti che non è necessario che le matrici trattate siano quadrate (tran¬ 
ne nel caso in cui se ne debba calcolare il determinante). 

Per concludere può essere utile un programma (tratto anch’esso da una 
routine di Mark Walker). Cioè una nuova matrice che moltiplicata per 
la precedente dia come risultato la matrice identità (si chiama matrice 
identità o matrice unitaria una matrice quadrata con tutti gli elementi 
nulli tranne quelli della diagonale principale, che sono tutti uguali ad 1). 


100 REM COPYRIGHT IN BASIC 
110 REM VIA SE2ZE 22 LATINA 
120 REM TEL. 487631 
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FOR J=K+1 TO N 


CONICHE 


130 CLR ; PRINT'TM" 

140 POKE53280,10:P0KE53281,3 

150 FRINT" INVERSIONE DI UNA MATRICE QUADRATA" 

160 F0RK=11040 FRINT"B-3",:NEXT 

170 INPUT".«ALIALE ORDINE TI INTERESSA",N 

180 DIMA <N+1,N+1 •,B <N+1,N+1> 

190 FRINT":» K - ORA DAMMI GLI ELEMENTI DELLA" 
200 PRI NT"MATRICE :":PRINT 
210 REM INGRESSO DATI 
220 FORK= 1TON •' FORJ= 1TON 

230 PRINT :PRINTJ"* RIGA E"K"* COLONNA: INAUTA<K,J) 
240 NEXTJ,K 

250 REM VISUALIZZAZIONE MATRICE 
260 FRI NT "ZI" 

270 FORK=1TON:FORJ=1TON 
280 PRINTACJ,K); 

290 NEXTJ:PRINT :NEXTK 
300 PRINT"MWVA BENE ?" 

310 GETQT: IFQ$=""THEN310 
320 IFQf="S"THEN350 

330 PRINT"WSRLLORA RIDAMMI I DATI CORRETTI" 

340 FORK=1T02000 : NEXT ; GOTO210 
350 REM FORMA LA MATRICE IDENTITÀ" E 
360 FORK=1TON:FORJ=1TON 
370 B(K,J) = 1-ABS< SGN<K-J> > 

380 NEXT..T, K 
390 F0RK=1T0N-1 

4O0 IFA CK,K >=0THENPRI NT"MIMPOSSIBILE":GQTO600 
410 F0RJ-K+1T0N 
420 M=A<J,K)/A<K,K> 

430 FORM-1TON 

440 A<J,H)=A<J,H >-M*A<K,H) 

4 50 B <J,H >=B < J,H>-M*B < K,H > 

460 NEXTH,J,K 

470 REM REIROSOSTITUZIONE IN B 
480 FORK=NT01S TEP-1 
490 F0RH=1T0N 
*- 500 FOR J = 1 T Oft- 

510 BCK,H)=B<K,H)-A<K,J>#B(J,H) 

520 NEXTJ 

530 B < K, H > =B < K, H > /A < K, K > 

540 NEXTH,K 

550 REM VISUALIZZAZIONE MATRICE INVERSA 
560 PRINTM" 

570 FORK=1 TOH :FORJ*1TON 
580 PRINTA < J,K); 

590 NEXTJ:PRIHT:NEXTK 
600 PRINT"MMANCORA ?" 

610 GETQT: IFQ$=""THEN610 
620 IFQ$="S"THENRUN 
630 PRINT"DDK - CIAO ! !" 


GENERICHE 


Alcuni cenni teorici prima di affrontare il programma. 
Un’equazione del tipo 
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ax 2 + bxy + cy 2 + dx + ey+f = 0 


è sempre una conica. 

Essa è degenere, cioè corrisponde ad una coppia di rette, quando la ma¬ 
trice 


A = 


b_ d_ 
2 2 



= 0 


11 tipo di conica è determinato dal segno della matrice 


b 

a 2 

b 

2 C 

b 2 _ 4 ac—b 2 
2 4 

cioè dal segno della quantità b 2 -4 ac che (per analogia con la formula ri¬ 
solutiva delle equazioni di secondo grado) viene chiamato discriminante 
della conica ed indicato con il simbolo A. 

Quando A = b 1 -4 ac è positivo la conica è una iperbole, quando A = 0 
la conica è una parabola, e quando A è negativo la conica è una ellisse. 
In quest’ultimo caso se avviene che 


B = 

= ac - 


a = c 
b = 0 

allora si ha la particolare ellisse con i due fuochi coincidenti detta anche 
circonferenza. 

Nel caso delle ellissi e delle iperboli il centro di simmetria della conica 
ha coordinate 


2 dc—be 

À 


y = 


2 ae—bd 
A 


mentre in ogni caso i coefficienti angolari degli assi della conica si otten¬ 
gono risolvendo l’equazione di secondo grado 
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bm 2 + 2m (a-c)-b = 0 


in cui l’incognita è m. 

Si noti che nel caso della circonferenza tale equazione è identicamente 
soddisfatta ed infatti ogni diametro della circonferenza è anche asse di 
simmetria. 

Nel caso della parabola i coefficienti angolari degli assi sono 


m = 


b_ 

2a 


m = 


2a_ 

b 


perpendicolari fra loro, come avviene anche per le ellissi ed iperboli, ma 
solo il secondo corrisponde al vero e proprio asse della parabola. La sua 
equazione è 

la lad + be 

y ~ ~ b X 1 b(a + c) 


(l’altro asse è all’infinito). 

Il vertice della parabola può essere ottenuto mettendo a sistema l’equa¬ 
zione dell’asse con quella della conica, e risolvendo. 

Se la conica è una iperbole con 


a = c = 0 


allora essa corrisponde ad una iperbole equilatera con gli asintoti paral¬ 
leli agli assi coordinati, e viene anche chiamata funzione omografica. 
Può essere messa sotto la forma 


y = 


—dx—f 

bx+e 


ed i suoi asintoti hanno equazione 



Tralascio la trattazione degli asintoti dell’iperbole generica e l’individua¬ 
zione delle rette che costituiscono le coniche degeneri, altrimenti il pro¬ 
gramma diventerebbe troppo lungo. 
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10 REM COPVRIGHT IN BASIC 
12 REM VIA SEZZE 22 LATINA 
14 REM TEL. 487631 
20 CLR : PRINT "."E" 

25 F'OKE 53280.10: POKE 53231.3 

30 PRINTTAB(10)“«CONICHE GENERICHE3" :GOSUB11000 

40 FRINT"UNA GENERICA EQUAZIONE DI 2" GRADO CON" 

50 FRINT"DUE INCOGNITE:" 

60 PRINT“M 2 2" 

70 FRINT" AX +BXV+CV +DX+EV+F=0" 

30 FRINT"(«CORRISPONDE SEMPRE AD UNA CONICA.":GOSUB11000 
30 PRINT"BATTI I COEFFICIENTI ED IO OGNI VOLTA" 

100 FRINT"TI CALCOLERÒ" LE CARATTERISTICHE DELLA" 

110 PRINT"CONICA CORRISPONDENTE." 

120 GOSUB10000 

130 FRINT"SBATTI 0 AL POSTO DEI COEFFICIENTI EVEN-" 

140 PRINT"TUALMENTE MANCANEI.":GOSUB11000 

150 INPUT"A®")A 

160 INPUT"(«B=";B 

170 INPUTC 

180 INPUT"WD-";D 

190 INPUT"KE*"E 

200 INPUT"«F=".:F 

210 PRINT"SDK - LA CONICA E" :" 

220 D1=A*C*F+B*D#E/4-C*D*D/4-B*B*F/4-A*E*E/4 
230 IFD1=0THENPRINTTABCI5>"««DEGENERE":GOTO500 
240 PRINTTAB<13>"«SUON DEGENERE" 

250 D2=E#B-4*A#C 

260 IFD2>0THENPRINT".«ED E" UNA IPERBOLE.“:GOTO300 

270 IFD2-0THENPRINT"SED E" UNA PARABOLA. ":GOTO300 

280 IFA=CANDB=0THENF'RINT"(«ED E " UNA CIRCONFERENZA. ":GOTO 12000 

290 PRINT"(SED E" UN'ELLISSE." 

300 GOSUB11000 : GOSUB13000 
310 IFD2C0THEN4000 
320 IFD2O0THEN5000 
330 GOTO6000 

500 REM-RICHIESTA DI CONTINUAZIONE 

510 GOSUB1100@:PRINT"VUOI PROVARE ANCORA ?" 

520 GETA$ : IFAf=""THEN520 
530 IFA*="S"THEN10 
540 FRINÌ "rjOK - CIAO! ! " 

550 END 

1000 REM-PARABOLA ASSE ORIZZONTALE 

1010 FRINT"LA PARABOLA HA ASSE ORIZZONTALE." 

1020 VY=-E/ C 2*C > : VX=-C*VY*VV/B-E#VYXB-F/D 
1030 PRINTTAB < 8 >" WV=C" VX "." VV ">" 

1040 DB= C E*E-4*C*F ')/C D*D) : FX= < DD-1 ) / C4*C/D > ■ DR= < 1+DD>/C 4*C/D > 
1050 PRINTTAB <3>"«F=C"FX";"VV">" 

1060 PRINT"SLA DIRETTRICE HA EQUAZ. X="DR 
1070 GOTO500 

2000 REM-PARABOLA ASSE VERTICALE 

2010 PRINT"LA PARABOLA HA ASSE VERTICALE." 

2020 VX=-D/C2*A>:VV=-A#VX*VXZE-D*VX/E-F/E 
2030 PRINTTAB<8> " («V= < " VX " ; " VV " ) " 

2040 DD=<D*D-4*A*F)/<E*E) : FV=(IiD-l)7(4*A/'E) : DR=C1+DI0/C4*A/E> 
2050 PRINTTABC8)"SF=C"VX";"FV")" 

2060 PRINT"SLA DIRETTRICE HA EQUAZ. V="DR 
2070 GOTO500 

3000 REM-FUNZIONE OMOGRAFICA 

3010 PRINT"L'IPERBOLE E' EQUILATERA.” 

3020 IFE=0THENPRINT"(SIJN ASINTOTO COINCIDE CON L'ASSE V" 

3030 IFD=8THENPRINT"(«UN ASINTOTO COINCIDE CON L'ASSE X" 
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3040 RV=-E/B^ PRINT" «EQUAZ.RSINTOTO VERIICALE X="AV 
3050 AO=-D/B-PRINT" «EQUAZ.ASINTOTO ORIZZONTALE V-"RO 
3060 PRINT"«COORDINATE CENTRO DI SIMMETRIA =" 

3070 PRINTTAB <8>" «C=<"AV";"AO")" 

3080 GOTO500 

4000 REM-ELLISSI GENERICHE 
4010 PR I NT ■ GUGLIE 15000 
4020 F'R I NT : GOSUB16000 
4030 GQTQ500 

5000 REM-IPERBOLI GENERICHE 
5010 F'R I NT : GOSUB 15000 
5020 F'R I NT : GOSUB 16000 
5030 GOTO500 

6000 REM-PARABOLE GENERICHE 

6010 N1 = < A*D#D+B#D#E+C*E*E)/<4*<A+C>12> 

6@'5 N2=<2*A*D#E+B#E*E)/<2#B*<A+C)):NN=NI-N2+F 

6020 DD=<2*A#E-B#BVB:VX=NN/DD 

6025 M=~2#A/B : Q=-<2*A*D+B*E)/<2*8#<A+C) ) 

6030 VV=M*VX+Q 

6040 PRINT"L'ASSE DELLA PARABOLA HA 
6850 PRINTTAB< 5 >" «fl="M" Q="Q 
6060 SRINT"«LE COORDINATE DEL VERTICE SONO 
6070 PRINTTAB < 8> " W ~< "VX"; "VV")" 

6080 GOTO500 

9999 END 

10000 REM-ARRESTO PROGRAMMA 

10010 PRINTSPC<11>"«KPREMI UN TASTO)" 

10020 GETAT: IFA$=""THEN18020 
10030 RETURN 

11000 REM-LINEA ORIZZONTALE 

11010 Af="8bS" :PRINT :FORK=1TO40:PRINT A*; :NEXTK:PRINT : PRINT : RETI JRN 
12000 REM-CIRCONFERENZA 

1201tì AL=-D/<2*A>:BE=-E/<2*A):R=SQR<AL*AL+BE*BE-F/A> 

12820 GOSUB11000 

12030 PRINT"LE COORDINATE DEL CENTRO SONO ; " 

12048 PR I NTTAB < 8 ) " «M> < " AL “ ; " BE " ) " 

12058 PRINT"«HE IL RAGGIO E' R="R 
12060 GOT0500 

13000 REM-TEST SITUAZIONI SINGOLARI 

13010 IFA=0ANDB=0ANDC=0THENPRINT"«L'EQUAZIONE E' UNA RETTA!i":GOTOSfifl 
13020 IFA=0ANDB“0ANBD2=0THEN1000 
13030 IFB=0ANDC=0ANDD2=0THEN2000 
13840 I FA=0ANDC=OANDBO0THEN3000 
13850 RETURN 

15800 REM-CALCOLO CENTRO DI SIMMETRIA 

15810 CX= < 2#D*C-B*E ) /D2 •’ CV= < 2*A*E-B#D > /D2 

15020 PRINT"IL CENTRO DI SIMMETRIA HA COORDINATE:" 

15030 JPRINTTAB<8>"«C=<"CX”;"CV")" 

15040 RETURN 

16000 REM-CALCOLO COEFF.ANGOLARI ASSI 

16810 PRINT"I COEFF.ANGOLARI DEGLI ASSI SONO:" 

16020 IFB=8THENPRINTTAB<8>"«M®INFINIT0 M=0": RETURN 

16030 M1 = <. C-A+S6RCA'*A-2^A*C+C*C+B*B > )/B 
16040 M2=<C-A-SQR(A*A-2*A*C+C*C+B*B)>/B 
16050 PRINTTABO)"«M1 = "M1 " M2="M2 

16060 RETURN 


Fino alla linea 200 c’è la parte descrittiva iniziale (la subroutine 10000 
serve a bloccare il programma in attesa che venga battuto un tasto qual¬ 
siasi). 
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Ricevuti i valori dei sei coefficienti a, b, c, d, e, /, in 220 viene calcolato 
il determinante A (indicato con la variabile DI) per stabilire se la conica 
è degenere o non degenere , e in quest’ultimo caso si salta in 500 per la 
richiesta di continuazione. Se invece la conica non è degenere, in 250 
viene calcolato il suo discriminante A (indicato con la variabile D2). 
Nelle linee 260-290 viene stabilito il tipo di conica a seconda del segno di 
D2, e nel caso sia una circonferenza si va nella subroutine 12000 dove, 
dopo la determinazione delle coordinate del centro e del raggio, si ritor¬ 
na in 500 per la richiesta di proseguimento. 

La subroutine 11000 serve a stampare le barre orizzontali che delimitano 
le caratteristiche calcolate per ogni conica. 

Dopo la determinazione del tipo, la subroutine 13000 effettua un test 
per controllare se la conica è di tipo particolare. 

E precisamente: 

Linea 13020 = la conica è del tipo 



cioè è una parabola con asse orizzontale. 
Linea 13030 = la conica è del tipo 

ax 2 dx f 

y -- ±- 

e e e 

cioè è una parabola con asse verticale. 

Linea 13040 = la conica è del tipo 


-dx-f 

y = -- 

bx+e 

e quindi, come si è visto, è una funzione omografica. 

In tali casi il programma salta rispettivamente alle linee 1000, 2000, 
3000, dove, determinate le caratteristiche salienti, si ha il rinvio alla li¬ 
nea 500 per la solita richiesta di continuazione. 

Se non ci sono situazioni singolari, nella 13050 si ha il RETURN, con re¬ 
lativo salto indietro alla linea 300. 

A questo punto, a seconda del valore del discriminante D2 si ha lo smi¬ 
stamento in 4000 (ellissi generiche), in 5000 (iperboli generiche) o in 
6000 (parabole generiche). 

Sia per le ellissi che per le iperboli viene prima calcolato il centro di sim¬ 
metria (subroutine 15000) e poi il coefficiente angolare degli assi (su¬ 
broutine 16000). 

Nella linea 16020 viene preso in considerazione il caso particolare in cui 
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il coefficiente b della conica è nullo, perché altrimenti nelle linee succes¬ 
sive si avrebbe una divisione per zero. Infine in 6000-6080 si ha il calco¬ 
lo dell’asse della parabola e del suo vertice. 



CAPITOLO QUINTO 

Fisica 


Nel primo capitolo abbiamo toccato con una rapida carrellata alcuni ar¬ 
gomenti di matematica. 

Essi costituiscono solo un esempio di come un personal computer possa 
essere utilizzato anche per scopi didattici. 

Purtroppo la scuola italiana ignora completamente nei propri program¬ 
mi 1’esistenza teorica (e tanto meno pratica) degli elaboratori come sussi¬ 
di didattici. 

Il massimo sforzo innovativo fu compiuto anni fa con il progetto di ri¬ 
forma delle scuole secondarie, in cui si prevedeva per l’indirizzo scienti¬ 
fico nientemeno che la trattazione dei sistemi di numerazione binaria ed 
esadecimale. 

Ma anche questa rivoluzionaria modernizzazione è naufragata nel nulla 
e, come è ben noto, la proposta è rimasta tale ed è stata riposta in un 
cassetto. 

Un personal costa più o meno come un galvanometro, ed anche il mode¬ 
sto bilancio di una scuola potrebbe prevederne l’acquisto. 

Esso, come vedremo, può essere utilizzato come sussidio anche per altre 
discipline oltre la matematica. 

So per esperienza personale che gli studenti (almeno la maggior parte di 
essi) giudicherebbe stimolante ed interessante la possibilità di imparare il 
linguaggio Basic (o il Pascal), e di lavorare ogni tanto con un computer. 
Alcuni argomenti di studio potrebbero essere ulteriormente approfonditi 
realizzando collettivamente un programma applicativo dell’argomento 
studiato. 
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Occupiamoci ora di alcuni programmi aventi per oggetto la fisica. 


UNITÀ DI MISURA 


10 REM COPYRIGHT IH BASIC 
12 REM VIA SEZZE 22 LATINA 
14 REM TEL. 487631 
16 POKE 53280/10 ; POKE 53281.-3 
20 CLR : PRINT 'TE" 

30 PRINT"M« OTRASFORMAZIONE BELLE UNITA' DI MISURA3" 
40 PRINT : PRINT : FORK= 1TO40 : PRI NT " ■«" ; ’• NEXTK 
50 PRINT"««CHE TIPO DI TRASFORMAZIONE TI INTERESSA : " 
60 PRINT "MI- fSLSJHGHEZZA" 

70 PRINT"2- tSTTSEMPO" 

SO PRINT"3- W/3ELOCITA'" 

90 PRINT"4- SH3CCELERAZIONE" 

100 PRINT"5- r^SORZA" 

110 PRINT"6- «aNERGIA <0 LAVORO)" 

120 PRINT"7- rsF'SJTENZA" 

130 PR I NT " MBWBATTI IL NUMERO SCELTO™" 

140 GETA*:IFA$=""THEN140 
150 A=VAL<A$>^IFA>7THEN140 

160 ONAGOT01000 / 2000 / 3000 / 4000 , 5000 / 6000 / 7000 

170 GOTO140 

1000 REM-LUNGHEZZE 

1010 DIML < 7/7) 

1020 F0RK=1T07 : F0RJ=1T07 
1030 REABLCK/J> 

1040 NEXTJ:NEXTK 

1050 GOSUE10000 

1060 PRINT"itìsj 1-METRI" 

1070 PRINT" 2-MIGLIA" 

1080 PRINT" 3-POLLICI <INCHES>" 

1090 PRINT" 4-PIEDI <FEET)" 

1100 PRINT" 5-VARDE" 

1110 PRINT" 6-MIGLIA MARINE" 

1120 PRINT" 7-ANNI LUCE" 

1130 GOSUE10100 
1160 GOSUE10200 
1170 R=D*L(A/E) 

1180 PRINT"MIL RISULTATO E'="R 

1190 GOSUE10300 

1200 GOTO1050 

2000 REM-TEMPI 

2005 FORH=1T049:READZ:NEXTH 

2010 DIMT<5/5> 

2020 FQRK= 1T 05 ■’ FORJ= 1T05 
2030 READTCK..J) 

2040 NEXTJ:NEXTK 

2050 GOSUE10000 

2060 PRINT"MS 1-SECONBI" 

2070 PRINT" 2-MINUTI" 

2080 PRINT" 3-ORE" 

2090 PRINT" 4-GIORHI" 

2100 PRINT" 5-ANNI" 

2110 GOSUE10100 
2120 GOSUE10200 
2130 R=D*T(A/B> 

2140 PRINT"MIL RISULTATO E="R 
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2150 GOSUB10300 
2160 GOTO2050 
3000 REM-VELOCITA'’ 

3010 FQRH=1T074:REflDZ:NEXTH 
3020 niMV<4,4> 

3030 FORK*1T04:FORJ=1T04 
3040 REflBV< K .• J ) 

3050 NEXTJ:NEXTK 

3060 GOSUE10000 

3070 FRI NT "WS 1-CM/SEC" 

3080 FRINT" 2-M/SEC" 

3090 FRINT" 3-KM/H" 

3100 FRINT" 4-NOBI" 

3110 GOSUE1@100 
3120 GOSUE18200 
3130 R=D#V<A..B) 

3140 FRINT"«IL RISULTATO E ="R 

3150 GOSUE10300 

3160 GOTO3060 

4000 REM-ACCELERAZIOHI 

4010 FORH=1TO90■REflDZ:NEXTH 

4020 DIMH ( 3 .• 3 > 

4030 FORK=1T03:FORJ=1T03 
4040 REflBfKK,J) 

4050 NEXTJ:NEXTK 
4068 GOSUE10000 

4070 FRINT"WS 1-M/SEC PER SECONDO" 
4080 FRINT" 2-KM/H PER ORA" 

4090 FRINT" 3-KM/H PER SECONDO" 
4100 GOSUE10100 
4110 GOSUE10200 
4120 R=D*fl<fl,B> 

4130 PRINT"SIL RISULTATO E="R 

4140 GOSUE10300 

4150 GOTO4060 

5000 REM-FORZE 

5010 FORH=1T099:READZ:NEXTH 

5020 DIMF ( 5 > 5 > 

5030 FORK=1T05 : FORJ=1T05 
5040 REfiBF<K,J> 

5050 NEXTJ : NEXTK 
5060 GOSUE10000 
5078 FRI NT" WS 1-DINA" 

5080 PRINT" 2-NEWTON" 

5090 PRINT" 3-KG<PES0>" 

5100 PRINT" 4-LIBBRA" 

5110 PRINT" 5-ONCIfl" 

5120 GOSUE10100 
5130 GOSUB10200 
5140 R=D#F<A,B> 

5150 FRINT"SIL RISULTATO E'="R 

5160 GOSUB10300 

5170 GOTO5060 

6000 REM-ENERGIA 

6010 F0RH=1T0124:READZ:NEXTH 

6020 DI ME < 6.. 6 ) 

6030 FORK=1T06 : FORJ=1T06 
6040 RE ADE (K.. J) 

6050 NEXTJ:NEXTK 
6060 GOSUB10000 
6070 FRINT"WS 1-ERG" 
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6080 FRINT" 2-JOULE" 

6080 PRINT" 3-KILQGRAMMETRI" 

6100 PRINT" 4-CALORIA" 

6110 PRINT" 5-KILOWATTORA" 

6120 PRINT" 6-ELETTR0NV0LT" 

6130 GOSUB10100 
6140 GOSUB10200 
6150 R=D*E<A,B) 

6160 PRINT"MIL RISULTATO E'="R 

6170 GOSUB10300 

6180 GOTO6060 

7000 REM-POTENZfl 

7010 FORH=1TO160'RERBZ:NEXTH 

7020 DIMP<4,4) 

7030 FORK=1T04:FORJ=1T04 
7040 REABP<K,J> 

7050 NEXTJ:NEXTK 

7060 GOSUB10000 

7070 PRINT1-ERG/SEC" 

7080 PRINT" 2-WATT" 

7090 PRINT" 3-HP" 

7100 PRINT" 4-CRL/SEC" 

7110 GOSUB10100 
7120 GOSUB10200 
7130 R=D#P<A,B> 

7140 PRINT"MIL RISULTATO E /= "R 
7150 GOSUB10300 
7160 GOTQ7060 
8000 END 

10000 PRINT’TJSONO DISPONIBILI LE SEGUENTI UNITA' : " : RETURN 
10100 PRINT"WMBATTI IL NUMERO CORRISPONDENTE ALL"UNI-" 

10110 PRINT"TA' DI PARTENZA —> 

10120 GETAf:IFA»=""THEN10120 
10125 PRINTAi 

10130 PRINT"ME QUELLO CORRISPONDENTE ALL UNITA' AL-" 

10140 PRINT"LA QUALE DESIDERI ARRIVARE —> 

10150 GETBi:IFB$=""THEN10150 
10155 PRINTBi 
10160 A=VAL(A$ >:B=VAL < Bi> 

10165 IFA>70RB>7THENG0T01000 
10170 RETURN 

10200 REM-RICHIESTA DATO DA TRASFORMARE 
10210 INPUT"MDATO DA TRASFORMARE = ";D 
10220 RETURN 

10300 REM-RICHIESTA DI CONTINUAZIONE 
10310 PRINT"MANCGRA ?" 

10320 GETAi : IFAÌ=""THEN10320 
10330 IF Ai="8"THENRETURN 

10340 PRINT"CAMBIO TIPO DI TRASFORMAZIONE ?" 

10350 GETAi ; IFA$=""THEN10350 
10360 IFAÌ="S"THEN10 
10370 PRINT’TDK - CIAO! !" 

10375 END 
10380 END 

20000 DATAI, 6. 2E-4.. 39.4.. 3.28.' 1.094,5.4E-4,1.06E-16,1609,1,6. 37E6,5291 
20010 DATA1764,.87,1.7E-13,.025,1.57E-7,1,8.3E-2,2.8E-2,7.7E-5,2.7E-18 
20020 DATA.305,1.89E-4,12,1,.333,1.64E-4,3.2E-17,.914,5.67E-4,36,3,1 
20030 DATA4.93E-4,9.6E-17,1853,1.1494,1.3E4,6098,2027,1,1.96E-13,9.4E15 
20040 BATA5.3E12,3.7E17,3.1E16,1E16,5.1E12,1,1,.016667,2.78E-4,1.16E-5 
20050 DATA3.17E-8,60,1,.016,6.9E-4,1.9E-6,3600,60,1,.0417,1.14E-4,86400 
20060 DATA1440,24,1,.00274,3.15E-7,5.26E-5,8760,365,1,1,.01,.036 ,.0194,100 
20070 DATAI,3.6,1.94,27.78,.278,1,.5397,51.48,.515,1.853,1,1,12960,3.6 
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20083 DATA7.7E-5, 1,2.78E-4,. 278.• 3800; 1 ; 1 .• 1E--5, 1.02E-6,2.25E-6, 

20090 DRTfi 1E5; 1 ;. 102,.225,3.61,9.8E5,9.8,1,2.2,35.34,4.45E5,4. 

20100 DRTfil6.04,2.77E4,.277,28.3E-3,.0623,1,1,1E—7;1.02E—8/2.3 
20110 DATA2.78E-14,6.29E11,1E7,1,. 102;. 239,2. 78E-7; 6.28E-18; 9. 

20120 DRTR9.8 .■ 1,2.343,2.72E-6,6. 2E19.. 4.19E7,. 4.19,. 4265,1,1.16E 
20130 DRTR3.6E16,3.6E6,3.67E5,8.6E5,1,2.3E25,1.59E-12,1.59E--19,1.62E-20 
20140 DRT A3.8E-20,4.4E-26 .• 1,1, 1E-7,. 1.36E-10,2.39E-8,1E7,1,1.36E-3,. 239 
20150 DRTR7.36E9,735.5,1,178,4.19E7,4.19,5.62E-3,1 


Quasi tutte le richieste impiegano l’istruzione GET invece dell’INPUT, in 
modo da eliminare l’uso del tasto di RETURN e rendere più pratico lo 
scorrimento del programma. 

Fino alla linea 140 si ha la stampa del “menù” disponibile, consistente 
in sette diversi tipi di trasformazione. 

In ciascuna delle sette scelte possibili il programma segue sempre lo stes¬ 
so criterio, ed è quindi sufficiente analizzarne una sola: per le altre tutto 
va allo stesso modo. 

Le tabelle di trasformazione che ho utilizzato sono le seguenti: 


LUNGHEZZE 



metro 

miglio 

inch 

foot 

yard 

miglio 

marino 

anno 

luce 

metro 

1 

6,2 IO 4 

39,4 

3,28 

1,094 

5,4-10-* 

1,06-IO 16 

miglio 

1609 

1 

6,37-IO 6 

5291 

1764 

0,87 

1,7 - IO 13 

inch 

0,0254 

1,57-IO" 7 

1 

8,3-IO- 2 

2,8 IO- 2 

7,7-IO' 5 

2,7-IO 18 

foot 

0,305 

1,89-10"* 

12 

1 

0,333 

1,64-10* 

3,2-IO- 17 

yard 

0,914 

5,67 • 10" 

36 

3 

1 

4,93 • 10" 

9,6-IO 17 

miglio 

marino 

1853 

1,149 

1,3-10* 

6098 

2027 

1 

1,96 -10 13 


anno 

luce 


9,4 • IO 15 5,8 • IO 12 3,1 IO 17 3,1 10 16 IO 16 5,1 • IO 12 


1 


i V-* -a.' v 

*j*i m m cn • 
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TEMPI 



secondi 

minuti 

ore 

giorni 

anni 

secondi 

1 

1,6 • IO 2 

2,78 ■ 10 4 

1,16 -10 5 

3,17 • IO- 8 

minuti 

60 

1 

1,6-IO 2 

6,9 IO 4 

1,9 • IO 6 

ore 

3600 

60 

1 

0,0417 

1,14- IO -4 

giorni 

86400 

1440 

24 

1 

2,74-10 3 

anni 

3,15 • 10 7 

5,26-IO' 5 

8760 

365 

1 


VELOCITÀ 



cm/sec 

/sec 

km/h 

nodi 

cm/sec 

1 

IO' 2 

0,036 

1,94-ia 2 

m/sec 

IO 2 

1 

3,6 

1,94 

km/h 

27,78 

0,2778 

1 

0,5397 

nodi 

51,48 

0,5148 

1,853 

1 


ACCELERAZIONI 



m/sec 2 

km/h 2 

km/h 
per sec. 

m/sec 2 

1 

12960 

3,6 

km/h 2 

7,7 -10 5 

1 

2,78 • IO 4 

km/h 
per sec. 

0,278 

3600 

1 
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FORZE 



dina 

newton 

Kgp 

libbra 

oncia 

dina 

1 

IO.' 5 

1,02 10 6 

2,25 • IO 6 

3,61 10 5 

newton 

IO 5 

1 

0,102 

0,225 

3,61 

Kgp 

9,8 IO 5 

9,8 

1 

2,2 

35,34 

libbra 

4,45 • IO 3 

4,45 

0,454 

1 

16,04 

oncia 

2,77-IO 4 

0,277 

28,3 - IO 3 

6,23-IO' 2 

1 


ENERGIA 



erg 

joule 

kgm 

cal 

kWh 

eV 

erg 

1 

ia 7 

1,02 10 8 

2,39-IO' 8 

2,78-IO 14 

6,29-IO" 

joule 

IO 7 

1 

0,102 

0,239 

2,78-IO' 7 

6,28-IO 18 

kgm 

9,8-IO 7 

9,8 

1 

2,343 

2,72 ■ IO’ 6 

6,2 IO 19 

Cai 

4,19 ■ IO 7 

4,19 

0,4265 

1 

1,16 - ia 6 

2,6 IO 19 

kWh 

3,6-IO 13 

3,6 • IO 6 

3,63 ■ IO 3 

8,6-IO 3 

ì 

2,3 - IO 23 

eV 

1,59*10 12 

1,59-10 19 

1,62 • 10 20 

3,7 - IO 20 

4,4-IO 26 

1 


POTENZA 



erg/sec 

W 

Hp 

Cal/sec 

erg/sec 

1 

IO- 7 

1,36 • IO" 10 

2,39-IO' 8 

W 

IO' 7 

1 

1,36 ia 3 

0,239 

Hp 

7,355-IO? 

735,5 

1 

178 

Cal/sec 

4,19 - IO 7 

4,19 

5,62 - IO' 3 

1 
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I fattori di trasformazione contenuti nelle tabelle sono stati ordinata- 
mente riportati nei DATA alle linee 20000-20150. Nelle linee 150-220, a 
seconda del tasto premuto si ha l’invio alle zone di programma interes¬ 
sate. 

Se per errore si preme un tasto diverso da quelli previsti, il GOTO 140 
riporta indietro il programma che in questo modo accetta solo le rispo¬ 
ste previste. 

Analizziamo per esempio la routine 5000 riguardante le forze. 

Nella linea 5010 vengono letti i primi 99 DATA e immagazzinati nella 
variabile Z (che non verrà utilizzata ed ha il solo scopo di eliminare i 
DATA precedenti a quelli che interessano). 

Poi in 5020 c’è il dimensionamento della variabile con due indici corri¬ 
spondente alla matrice quadrata dei valori contenuti nella tabella di tra¬ 
sformazione delle forze. 

Le variabili con indici sono dimensionate una alla volta in ciascuna rou¬ 
tine, anziché tutte insieme all’inizio del programma, perché in questo 
modo si ha un consistente risparmio di memoria. 

Nelle linee 5030-5050 si ha il riempimento della matrice F con i valori 
dei DATA, con due cicli FOR NEXT uno dentro l’altro (K è l’indice di 
colonna e J quello di riga). Si passa poi alla subroutine 10000 che stam¬ 
pa semplicemente una stringa esplicativa. 

Le linee 5070-5110 stampano quindi i nomi delle unità che è possibile 
trasformare, e le subroutine 10100 e 10200 richiedono all’operatore qual 
è l’unità di misura di partenza e quale quella di arrivo. 

Anche questi dati vengono accettati con l’istruzione GET, e corrispondo¬ 
no rispettivamente ad A$ e B$. 

Prima del RETURN esse vengono trasformate in A e B (variabili numeri¬ 
che e non più di stringa). 

Individuate le posizioni A e B della tabella, a questo punto la variabile 
F(A,B) corrisponde al fattore di conversione che deve essere impiegato. 
Nella linea 10210, in precedenza, era stato anche richiesto 1 il valore D 
del dato che deve essere trasformato. 

Siamo ora alla linea 5140 che calcola il risultato R cercato, con una sem¬ 
plice moltiplicazione. 

Nella linea successiva viene stampato il risultato, e si ha l’invio alla su¬ 
broutine 10300 per la richiesta di continuazione. Di qui se si vuole conti¬ 
nuare nello stesso tipo di trasformazione, si ha il RETURN e poi dalla 
5170 il rinvio alla 5060 dove si ripete il procedimento. 

Se non si vuole continuare, viene proposto il cambiamento di tipo di tra¬ 
sformazione e, in caso di risposta affermativa, si ha il ritorno alla linea 
10 dove il CRL impedisce il ridimensionamento eventuale di una variabi- 


'Con una istruzione INPUT, altrimenti il dato da trasformare dovrebbe essere costituito da 
un solo carattere. 
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le con indice già usata, ed evita la necessità di ordinare un RESTORE 
per rimemorizzare i DATA. 

Come già accennato, le altre routine funzionano allo stesso modo. 


TEORIA DEGLI ERRORI 


5 REM COPYRIGHT IN BASIC 

6 REM VIA SE22E 22 LATINA 

7 REM TEL. 487631 

8 CLR : PRINT'TJS" 

9 POKE53280, 10 = P0KE53281,3 

10 DIMAC60), B<60) 

11 PRINTTRB(10)"TEORIA BEGLI ERRORI8" 

12 FORK=1TO40 : PRINT"■"; : NEXT 

20 PRINT"3HWEFFETTURNDO DIVERSE VOLTE LA MISURA DI" 

30 PRINT"UNO STESSO FENOMENO FISICO CON UNO" 

40 PRINT"STRUMENTO SUFFICIENTEMENTE SENSIBILE," 

50 PRINT"SI OTTIENE UNA SERIE DI VALORI NUMERICI" 

60 PRINT"GENERALMENTE DIVERSI FRA LORO." 

70 PRINT"«SUPPONIAMO DI ESEGUIRE 50 LETTURE CONSE" 

80 PRINT"CUTIVE «DELLA DURATA* DI UNO STESSO FEN0-" 

90 PRINT"MENO CON UN CRONOMETRO MOLTO SENSIBILE." 

100 PRINT"MORA ELABORERÒ'CASUALMENTE TALE SERIE" 

110 PRINT"DI LETTURE." 

120 GOSUB10000 

140 PRINT"«UN ATTIMO DI PA2IEN2AS : " 

150 PRINT FORK=0TO59 

160 A(K)=RND(TI) ; A(K)=INT(A(K)*1000) : A<K)=A(K)X1000 : NEXTK 

170 FORK=0TO59STEP4 

180 FORJ=0TO3 : PRINTA(K+J)1"SEC", 

190 NEXTJ:NEXTK 
200 GOSUB10000 

210 PRINT"E'IMPOSSIBILE STABILIRE QUALE DI TALI" 

220 PRINT"LETTURE SIA QUELLA ESATTA (AMMESSO CHE" 

230 PRINT"CI SIA)." 

240 PRINT"«DEL RESTO L'INSIEME DELLE 60 LETTURE" 

250 PRINT"E'SENZ'ALTRO PIU'SIONIFICATIVO DI UNA" 

260 PRINT"LETTURA SINGOLA." 

270 PRINT"«IL VALORE PIU'PROBABILE,PIU'VICINO A" 

280 PRINT"QUELLO VERO E' LA «1EDIA ARITMETICA*" 

290 PRINT"CHE SI OTTIENE SOMMANDO LE 60 LETTURE" 

300 PRINT"E DIVIDENDO IL RISULTATO PER 60" 

310 PRI NT "DELL'ISTANTE IN CUI PREMI UN TASTO, IO" 

320 PRINT"CON COMODITÀ' MI CALCOLERÒ' IL VALORE" 

330 F’RINT"DI TALE MEDIA." 

340 GOSUB10000 

350 PRINT"LA MEDIA ARITMETICA E':" 

360 FORK=0TO59 
370 M=M+A(K) 

380 NEXTK 

385 R=M/60 ■' R= I NT ( R* 10000 > : R=R/10000 
390 PR INTTAB (10) " r#©91ED I A= " ; R 

400 PRINT"«CHELE DIFFERENZE FRA QUESTA MEDIA ED OGNI" 

410 PRINT"SINGOLA LETTURA VENGONO DETTE" 

420 PRINTTAB(9)" ««SCARTI DALLA MEDI A3" 

430 PRI NT "«CURA CALCOLO TUTTI GLI SCARTI-" 

440 GOSUB10000 
470 FORK=0TO59STEP4 
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480 FORJ=0TQ3:B < K+J)=R-A C K+J >:B < K+J >*INT < B< K+J)# 10000> 

485 E C K+J>=B CK+J>/10000 

490 F'R INTB < K+J ), : NEXT J : NEXTK 

500 PRINT"MORA SUDDIVIDO L'INTERVALLO FRA LO" 

510 PRINT"3CART0 PIU'BASSO E QUELLO PIU'ALTO IN" 

520 PRINT"DIECI PARTI,E CONTO QUANTI SCARTI CI" 

530 PRINT"SONO IN CIASCUN INTERVALLO." 

540 GOSUB10O00 

560 PRINT"ATTENDERE,PREG03" FORK=0TO59 
570 IFB<KX-.8ANDBCK>>-1THENNC0> =NC0>+1 
580 IFBCKK-. 6RNDBCK»-.8THENNC 1 >=NC 1 >+l 
590 IFBCK><-.4ANDB<K.6THENNC 2 >=N< 2 >+1 
600 IFB<K)<-.2ANDBCK)>-.4THENNC 3> =N < 3 >+1 
610 IFB C K >C0ANDB<K) >- .2THENN <4 >=N < 4) +1 
620 IFB CK)<.2ANDB<K)>0THENN<5)«N < 5 > +1 
630 IFBCKK. 4ANDE<K».2THENN<6>»N<6) +1 
640 IFBCKK. 6AHDE C K ) >. 4THENN C 7 ) =N C 7 ) +1 
650 IFB<K)<.8ANDB<K)>.6THENN<8)=NC8> +1 
660 IFB<KX1ANDE<K)>.8THENNC 9>=NC 9)+1 
670 NEXTK 

680 PRINT"«FRA -1 E -.8 CI SONO";N<0>;"SCARTI" 

690 PRINT"FRA -.8 E -.6 CE NE SONO",NC1> 

7O0 PRINT"FRA -.6 E -.4 CE NE S0N0";NC2) 

710 PRINT"FRA -.4 E -.2 CE NE SONO"IN<3) 

720 PRINT"FRA -.2 E 0 CE NE SONO"INC 4) 

730 PRINT"FRA 0 E .2 CE NE SQN0";N<5> 

740 PRINT"FRA .2 E .4 CE NE S0N0";N<6> 

750 PRINT"FRA .4 E .6 CE NE SONO"INC7) 

760 PRINT"FRA .6 E .8 CE NE SONO"INC8> 

770 PRINT"FRA .8 E 1 CE NE SONO"INC9> 

780 PRINT"«SOME PUOI NOTARE GLI SCARTI NON SONO" 

790 PRINT"DISTRI BUI TI A CASO,MA SI ADDENSANO" 

800 PRINT"INTORNO ALLO SCARTO NULLO,CORRISPON-" 

810 PRINT"DENTE ALLA MEDIA ARITMETICA." 

320 PRINT"E' PER QUESTA RAGIONE CHE LA MEDIA" 

830 PRINT"VIENE CONSIDERATA IL VALORE PIU'" 

840 PRINT"PROBABILMENTE VICINO AL VERO DI TUTTA" 

850 PRINT"LA SERIE DI MISURE." 

860 GOSUB10000 

880 PRINT"L'ISTOGRAMMA CON I DATI FINORA" 

890 PRINT "ELABORATI E'' IL SEGUENTE ■ " 

920 GOSUB1H000 

925 PR INTTABC20> "fSHUM. SCARTI ■ " 

930 FORK=1TO30 : P0KE56180+K,0 
935 POKE1908+K,114:NEXTK 
940 FORK=0TO9:IFNCK>=0THEN970 
945 FORJ=0TONCK> 

950 POKE56141+3*K-40*J,10 
955 POKE 1869+3*K-40:KJ, 102 
960 NEXTJ 
970 NEXTK 

980 PRINT". NEGAT. t SU. ARITM. 3 SC. POSIT. ■ " : 
985 FORK=1T020 :P0KE56195-40KK,0 
987 POKE1923-40#K,115:NEXTK 
990 PRINT"®"; 

1000 GOSUB10020 

1010 PRINT"LA CURVA HA EQUAZIONE" 

1020 PRINTTABC9)"fcltì 2 2" 

1030 PRINTTABC9>" -H X" 

1040 PRIHTTABC9)“ H E" 

1050 PRINTTABC9>" V=-" 

1060 PRINTTABC9)" s/“" 
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1070 PRINTTABO) " ir" 

1080 Gli SUE 1 0000 

1100 FRINT"DOVE X E V SONO GLI ASSI CHE COMPAIONO" 
1110 FRINT"NELL-ISTOGRAMMA,ED H UN PARAMETRO CHE" 
1120 PRINT"INDICA DI QUANTO E'SCHIACCIATA LA CURVA" 
1130 PRINT"INTORNO AL VALORE MEDIO." 

1135 PRI NT "(FI VIENE DETTA 'COSTANTE DI PRECISIONE™. " 
1140 PRINT "SFUJ "ALTO E 'H,PIU'SOTTILE E'LA CAMPANA," 
1150 PRINT"E PIU PICCOLO E L'ERRORE ESISTENTE FRA" 
1160 PRINT"LA MEDIA E IL VALORE VERO DELLA MISURA" 
1170 PRINT"CHE SI VOLEVA ESEGUIRE." 

1172 PRINT"USE IL NUMERO DI LETTURE FOSSE STATO" 

1174 PRINT"MOLTO PIU"ELEVATO DI 60,LA CURVA A" 

1176 PRINT"CAMPANA SAREBBE STATA MOLTO PIU'NETTA" 
1178 PRINT"E REGOLARE." 

1180 PRI NT "SLA CURVA SI CHIAMA .'CURVA DI GAUSSS" 

11SO GOSUB10000 

1200 PRINT"VUOI RIVEDERE L ISTOGRAMMA ?" 

1210 GETAt^IFA$=""THEN1210 

1220 IFA$="S"THENPRINT"n" : G0T0925 

1230 PRINT"SJv'UOI RIVEDERE TUTTO IL PROGRAMMA ?" 

1240 GETA$ : I FA$= " "THEN1240 

1250 IFA$="S"THEN5 

1260 PRINT"*MOK - CIAO!!" 

1265 END 
1270 END 

10000 REM-ATTESA 

10010 PRINTTAEaiV'SKPREMI UN TASTO)" 

10020 GETA*:IFA*=""THEN10020 
10030 PRINT".T' : RETURN 


La trattazione didattica della teoria degli errori, pur non essendo sempli¬ 
cissima, non è neanche troppo complicata. 

Questo programma potrebbe ottimamente servire come sussidio in grado 
di fornire dei validi esempi applicativi. 

Dopo una breve introduzione esplicativa, alla linea 160 vengono elabora¬ 
ti 60 valori casuali compresi tra 0 ed 1. 

Nella stessa linea ciascuno di tali valori A(K) viene moltiplicato per mil¬ 
le, e dopo aver considerato la sola parte intera il risultato viene ancora 
diviso per mille. 

In questo modo vengono eliminate tutte le cifre decimali oltre la terza. 
Questi 60 valori casuali A(K) così generati, rappresentano la simulazione 
della lettura di un intervallo di tempo effettuata 60 volte consecutiva- 
mente. 

Il programma si propone di mostrare come un certo numero di letture 
fornisca molte più informazioni di una lettura singola, ed offra la possi¬ 
bilità di determinare un risultato (la media aritmetica) molto più attendi¬ 
bile di quello espresso da una sola lettura. 

È inoltre possibile determinare una stima abbastanza raffinata del pro¬ 
babile errore commesso sul risultato. 

Non occorrono particolari delucidazioni sul programma che è quasi 
completamente realizzato in forma discorsiva. 
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L’unica subroutine è la 10000 che ha lo scopo di arrestare lo scorrimen¬ 
to per consentire all’operatore di leggere lo schermo. 

Nelle linee 360-385 viene calcolata la media aritmetica R (con una cifra 
decimale in più rispetto alle letture singole). 

Poi vengono calcolati gli scarti, cioè per ciascuna lettura si determina la 
differenza 


R-A(K) 

e il risultato di ogni differenza (che può essere positiva o negativa) va a 
formare l’insieme dei 60 scarti indicati con B(K). 

I due cicli FOR NEXT uno dentro l’altro nelle linee 470-490 servono per 
stampare questi 60 scarti in un’unica tabella costituita da 15 righe e 4 
colonne. 

Successivamente (linee 560-670) l’intervallo fra -1 ed 1 viene suddiviso 
in 10 parti uguali' e vengono contati gli scarti contenuti in ciascun inter¬ 
vallo. 

I valori N(0), N(1 ),..., N(9) rappresentano appunto il numero di scarti 
presenti in ogni intervallino, al termine del ciclo FOR NEXT. 

Questi valori vengono quindi stampati alle linee 680-770. 

Sessanta letture sono poche per portare avanti un discorso statistico ri- 



'Le letture simulate hanno valori compresi fra 0 e 1, ma gli scarti (che possono essere posi¬ 
tivi o negativi) vanno da -1 ad 1. 
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goroso, ma sono sufficienti per cominciare a vedere che gli intervalli 
centrali sono molto più popolati di quelli periferici. 

Il massimo popolamento si avrà in corrispondenza del valore medio R. 
Questa caratteristica è evidenziata dall’esecuzione di un istogramma met¬ 
tendo in ascissa i singoli intervallini e in ordinata il numero di scarti pre¬ 
senti in ciascuno di essi. 

L’istogramma viene eseguito con le istruzioni POKE nelle linee 925-^990. 
Se l’intervallino considerato non ha alcuno scarto, la seconda istruzione 
della linea 940 gli fa saltare il ciclo J di stampa della colonnina. 

Pur essendo grossolano a causa del limitato numero di letture, l’isto¬ 
gramma ha già una forma caratteristica “a campana” che permette di 
generalizzare il discorso e introdurre la funzione di Gauss 



dove x ed y corrispondono agli assi dell’istogramma di figura 10. 



Il parametro h viene detto costante di precisione, in quanto più basso è 
il suo valore, più stretta è la campana, minore è lo “sparpagliamento” 
delle letture intorno alla media, e quindi più piccolo l’errore probabil¬ 
mente commesso nel considerare R come risultato della misura. 

11 programma finisce a questo punto con la richiesta di rivedere l’isto¬ 
gramma o di eseguire l’elaborazione di una nuova serie di dati. 
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Potrebbe essere completato dal lettore con il calcolo di h che corrispon¬ 
de a 


h ~ 

dove fi è lo scarto quadratico medio , che a sua volta è dato dalla formu¬ 
la 


cioè dalla radice quadrata della somma dei quadrati degli scarti, diviso il 
numero N di scarti complessivi. 

Il dimensionamento delle variabili con indice A(K) e B(K) alla linea 9 
può essere aumentato a piacere, correggendo però le linee 150, 170, 360, 
385, 470, 560. 

La variabile N(K) non ha bisogno del dimensionamento perché K varia 
da 0 a 9, in ogni caso. 


CINEMATICA 


È un maxiprogramma (almeno per un PET da 8K), che permette di ri¬ 
solvere qualsiasi problema di cinematica. 

Al solito, sfrutta al massimo le istruzioni GET in modo da ridurre l’uso 
del tasto RETURN e rendere più spedito lo scorrimento. 


10 REM COPYRIGHT IH BASIC 
12 REM VIA SEZZE 22 LATINA 
14 REM TEL. 487631 
20 CLP : FRI NT "ira" 

39 PRINTTABC15)"CINEMATICA" 

40 PRINT :GOSUB11@00 

50 PRINT"«QUESTO PROGRAMMA PERMETTE DI RISOLVERE" 
60 PRINT"QUALUNQUE PROBLEMA DI CINEMATICA.“ 

70 PRINT"SRICORDATI CHE TUTTI I DATI DEVONO ESSE-" 
80 PRI NT "RE ESPRESSI NEL SISTEMA fSM. K. 3.3" 

90 PRINT :GOSUB11000 

100 PRINT"MI MOTI FONDAMENTALI SONO TRE 
110 PRINTTAB<10>"MI- RETTILINEO UNIFORME" 

120 PRINTTAB<10)"M2- RETT. IJNIF. ACCELERATO" 

130 PRINTTAB<10>"M3- CIRCOLARE UNIFORME" 

140 PRINT"MMCOSA SCEGLI ?" = F=1 :GOSUB10000 
150 A=INT<A >: IFA>30RA<=0THEN10 
160 ONAGOTO1000,. 4000.7000 
1000 REM-MOTO UHIF. 

1010 PRINT"IX.A LEGGE DEL MOTO E'" 

1020 PRINTTAB( 16) "»L=S+VT " 

1025 PRINT'OCHE CONTIENE 4 VARIABILI E DOVE S RAP-" 
1030 PRINT"PRESENTA LO «SPAZIO INIZIALE»." 
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1040 PRINT" USUANTE NE CONOSCI ?"; :F=1 : GOSUE10000 : PRINTR* 

1050 R=INT(A) ; IFRC3THEN9000 

1060 IFft>=4THENPRINT" MDJRISPONDI COERENTEMENTE !":GOSUE10000 : GOTO10 
1070 FRI NT "OLIRLE VUOI CONOSCERE ?” i 
1080 F=1 :GOSUE10000 -PRINTA* 

1090 GOSUE11000 

1100 I FA*="L"THEN1200 

1110 I FR*=" S"THEN1400 

1120 IFA*="V"THEN1600 

1130 IFA*="T"THEN1800 

1140 GOTO1010 

1200 INPUT"WQURNT- E - S";S 

1210 I NPUT " me V'VV 

1220 INPUT"ME T";T 

1230 L=S+V*T 

1240 GOSUE11000 :PRINT" MLO SPRZ10 PERCORSO E - " L "METRI" 

1250 GOTO12000 
1400 INPUT" PLIANT'E" L";L 
1410 INPUT"ME V";V 
1420 INPUT"ME T";T 
1430 S=L-V#T 

1440 GOSUE11000'PRINT"M_0 SPAZIO INIZIALE E""S"METRI" 

1450 GOTO12000 

1600 I NPUT "MQURNT-E - L L 

1610 INPUT"MED S";S 

1620 INPUT"ME T";T 

1625 IFT=0THENPRINT"Tn" : GOTO 1620 

1630 V= ( L-S ) /T 

1640 GOSUE 11000 ; PR I NT " SLR VELOCITA-' E" rU"V"M/S" 

1645 PRINT" «OPPURE DI"'7*3.6"KM/H" 

1650 GOTO12000 

1800 I NPUT "MQURNT'E ■' L";L 

1810 INPUT"MED S";S 

1820 INPUT"ME V";V 

1825 I FV=0THENPRI NT" rm" : GOTO 1820 

1830 T=(L-S)/V 

1840 GOSUE11000 :PRINT"MIL TEMPO E' DI"T"SEC." 

1845 H1 =T/360@ : H=INT(HI > : M1 = (H1-H>*60 : M= INT<M1 > : S1 = M1 -M>*60 
1847 PRINT" «OPPURE"H"ORE,"M"MIN.E"S1"SEC" 

1850 GOTO12000 

4000 REM-MOTO UNIF.ACCEL. 

4010 PRINT"n_E LEGGI DEL MOTO SONO" 

4020 PRINTTRB(8)"MI 2" 

4030 PRINT"L=S+NT+ - AT";TRE(20)"V=U+AT" 

4040 PRINTTRB(8)"2" 

4045 IFFF=1THENGOSUB11000 : RETURN 

4050 PRI NT "MUOVE S E-' LO «SPAZIO INIZIALE™ E W LA" 

4060 PRINT"«VELOCITA- INIZIALE™." 

4070 GOSUE11000 

4080 PRINT"MIL PROBLEMA E- RISOLVIBILE SE CONOSCI" 

4090 F’RINT"«S™ , . r *KS E ALMENO DUE DELLE ALTRE VARIA-" 

4100 PRINT"BILI : , A , T , VS." 

4110 PRINT"MQUALI CONOSCI ?"; :F=1 : GOSUE10000 : C$=A* ; PRINTA* 

4120 PRINT"ME L' ALTRA ?" ; : F=1 : GOSUB10000 : D*=R* : PRINTAt 
4130 IFC*="L"ANDD*="A"ORCf="A"ANDD*="L"THEN5000 
4140 IFC*="L"ANDD$="T"ORC*="T"ANDD*="L"THEN5200 
4150 IFC*="L"ANDD*="V"ORC*="V"RNDD*="L"THEN5400 
4160 IFC*="A"RNDD*="T"ORC*="T"ANDD*="A"THEN5600 
4170 IFC*="A"ANDD*="V"ORC$="V"ANDD*="A"THEN5800 
4180 IFC*="T"ANDD$="V"ORC*="V"ANDD*="T"THEN6060 
4190 GOTO4010 
5000 FF=1 GOSUB4000 
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5010 INPUT "MEURNT'E'' S";S 
5020 INPUT"ME ir;u 
5030 INPUT"MED L".:L 
5035 IFL=0THEN9@00 
5040 INPUT"MED fl'Sfi 
5045 IFfl=0THEN9000 
5050 GOSUB11000 

5060 V=8QR<2#fl#L-2*fl#S+W#W> : T= <V-W)/fl 
5070 PRI NT " m- "V "M/SEC" 

5080 PRINT"MIT="T"SEC" 

5090 GOTO12000 
5200 FF=1 : GOSUB4000 
5210 INPUT"MEJURNT 'E' S";S 
5220 INPUT"ME W";W 
5230 INPUT"MED L";L 
5235 IFL=0THEN9000 
5240 INPUT"ME T";T 
5245 IFT=0THEN9000 
5250 GOSUB11000 

5260 fl=L-S-U*T:fl=2*fl/<T*T):V=H+fl*T 
5270 PRINT" MW= "V"M/SEC" 

5280 PRINT" MR="R"M/SS" 

5290 GOTO12000 
5400 FF=1 : GOSUB4000 
5410 INPUT"MQUANT"E / S";S 
5420 INPUT“SE W";W 
5430 INPUT"SEIi L";L 
5435 IFL=0ORL=STHEN9000 
5440 INPUT"ME V";V 
5445 IFV=0ORV=UTHEN9000 
5450 GOSUB11000 

5460 fl=<V#V-U*U)A2*<L-S)> : T=CV-WVR 
5470 PR I NT " MTT= " T " SEC " 

5480 PRINT" Wfl="fl”M/SS" 

5490 GOTO12000 
5600 FF*=1 : GOSUB4000 
5610 INPUT"MJQURNT 'E' S";S 
5620 INPUT"ME W’SW 
5630 INPUT"MED A";fl 
5635 IFR=0THEN900@ 

5640 INPUT"ME T";T 
5645 IFT=0THEN9000 
5650 GOSUB11000 

5660 L=S+U#T+(fl*T*TV2 : V=U+fl*T 
5670 PRINT"ML="L"METRI" 

5680 PR I NT " Wv'= " V " M/SEC " 

5690 GOTO12000 
5800 FF=1 : GOSUB4000 
5810 INPUT"WQURNT^E'' S"JS 
5820 INPUT"ME W";W 
5830 INPUT"ME V";V 
5835 IFV=0THEN90@0 
5840 INPUT"MED R";fi 
5845 IFfl=0THEN9000 
5850 GOSUB11000 

5860 T= < V-W)/fl^ L=S+W#T+<fl*T*T>/2 
5870 PRINT"*rT="T"SEC" 

5880 PRINT"ML="L"METRI" 

5890 GOTO12000 

6000 FF=1 : GOSUB4000 

6010 INPUT"MOUflNT' E S";S 
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6020 INPUT"ME W";U 
6030 INPUT"ME T";T 
6035 IFT=0THEN3000 
6040 INPUT"SE V";V 
6045 IFV=0THEN9000 
6050 60SUB11000 

6068 fi=<V~W,VT L~S+U*T+(R*T*T>/2 
6070 PRINT"ML="L"METRI" 

6080 PRINT"Mfl="fi"M/SS" 

6090 GOTO12000 

7000 REM-MOTO CIRO.UNIF. 

7018 PRINT'TLE LEGGI DEL MOTO SONO" 

7015 PRINTTfiB<28>"2" 

7020 PR I NTTfiB < 7 > " 2frR 

7030 PRIHTTflB < 5 >"V=-=2nRF fi=-" 

7040 PRINTTfiB<8>"T";TflB<27)"R" 

7050 PRINT"MBEVI CONOSCERE ALMENO DUE VARIABILI" 

7060 PRINT"FRA : W , R , T , F , A3" 

7070 GGSUB11000 : PRINT"MQUfiLI CONOSCI ?"; 

7080 F=1 :GOSUB10000 ; C$=A$•PRINTfìS 

7090 FRINT"E L' ALTRA ?" ; ;F=1 : GOSUB10000 : D$»fl$ : PRINTflt 
7100 IFC$="V"ftHDDf="R"ORC*="R"ANDD$="V"THEN8000 
7110 IFC*="V" RNDD$= "A"ORC$="A"ANBD*="V"THEN8100 
7120 IFCT="R"fiNDD$="fi"ORC$="fi"ftNDB$="R"THEN8200 
7130 IFC$="V"ANDD$="T"ORC$="T"ANDD$="V"THEN8300 
7140 IFC*="V"ANDDf="F"ORC$*"F"AHDDT="V"THEN8300 
7150 IFC$= "R"ANDD$="T"ORC$="T"ANDD*="R”THEN8400 
7160 IFC$="R"ANDD$="F"ORC$="F"ANDD*="R"THEN8400 
7170 IFC$="T"flNBD*="fi"ORC*="fi"flNDDT="T"THEN8500 
7180 IFC$="F"ANDDt="A"ORC*="A"ANDDf="F"THEN85O0 
7190 GOTO7010 

8000 INPUT"«QUANTO E" V";V 

8010 IFV<=0THEN9000 

8015 INPUT"KED R";R 

8020 IFR<=0THEN9000 

8030 T=2*ir*R/V : F= 1 /T ; A=V*V/R ■ O-V/R 

8040 GOSUB11000 

8050 PRI NT " :?IT = " T " SEC " 

8060 PRINT"F="F"HERTZ" 

8070 PRINT"A="fi"M/SS" 

8080 PRINT"VEL.ANGOLARE 3 "0"RAD/SEC" 

8090 GOTO12080 

8100 INPUT "«QUANTO E'' V".;V 

8110 IFV<=0THEN9000 

8120 INPUT"MED A"; A 

8130 IFAO0THEN9000 

8140 R=V*V/fi : T=2#ir#R/V F=l/T' 0=V/R 

8150 GOSUE11000 

8160 PRINT" :nF= "R"METRI " 

8170 PRINT"T="T"SEC" 

8180 FRINT"F="F"HERTZ" 

8190 PRINT"VEL.ANGOLARE 3 "0"RfiB/SEC" 

8195 GOTO12000 

8200 INPIJT"MQUANTR";R 

8205 IFRO0THEN90O0 

8210 INPUT"MED A";A 

8215 IFA<=0THEN9000 

8220 V=SQR < A*R > : 0=V/R : T*2*ir#R/V : F= 1 /T 

8230 GOSt'Eli000 

8248 PRINT"MV="V"M/SEC" 

8250 PRINT"VEL.ANGOLARE 3 "0"RAD/SEC" 

8260 PR I NT " T= " T " SEC " 
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8278 PRINT"F="F"HERTZ" 

8280 GOTO12000 

8300 INPUT":?JjIJhHT"E"' LR VELOCITA'";V 

8305 IFV<=0THEN90O0 

8310 INPUT"SE IL PERIODO";T 

8315 IFTO0THEN9000 

8320 F=l/T : R=V#T/<2*ir> ■' 0=V/R : R=0*V 

8330 GOSUB11000 

8340 PRINT"MF="F"HERTZ" 

8350 PRINT"R="R"METRI" 

8360 PRINT"R="R"M/SS" 

8370 PRINT"VEL.ANGOLARE 3 "0"RRD/SEC" 

8380 GOTO12000 

8400 INPUT"iC/URL 'E' IL PERIODO";T 

8405 IFTC=0THEH9000 

8410 INPUT"MED R";R 

8415 IFRO0THEN9000 

8420 F= 1 /T : V=2*tr*R/T : 0=V/R ■ A=V*V/R 

8430 GOSUB11000 

8440 PRINT" MF="F"HERTZ" 

8450 PRINT"V="V"M/SEC" 

8460 PRINT"VEL.ANGOLARE»"0"RRD/SEC" 

8470 PRINT"A="A"M/SS" 

8480 GOTO12000 

8500 INPUT ,, MQUANT-"E' IL PERIODO";T 
8505 IFT<=0THEN9000 
8510 INPUT"ME L"ACCELERAZIONE"; A 
8515 IFRO0THEN9000 

8520 F=l/T : R=<A*T*T)/<4*fr*ir> : V=SQRCA*R) ■ 0=V/R 

8530 GOSUB11000 

8540 PRINT"MF="F"HERTZ" 

8550 PRINT"V="V"M/SEC" 

8560 PRINT"R="R"METRI" 

8570 PRINT"VEL.ANGOLARE 3 "0"RRD/SEC" 

8580 GOTO12000 
8900 END 

9000 PRINT" MM30LUZIONE IMPOSSIBILE !" 

9010 GOSUB10000 
9020 GOTO10 

10000 REM-ATTESA E INGRESSO DATI 
10010 IFF=0THENPRINTTAB<11)"M<PREMI UN TASTO)" 
10020 GETR$:IFA$=""THEN10020 
10025 A=VAL < A# > 

10030 F=0:RETURN 
11000 REM-BARRA 

11010 FORK= 1TO40 : PRINT“ HSmS 11 i ■ NEXTK : RETURN 
12000 REM-RICHIESTA DI CONTINUAZIONE 
12010 PRINT"MVUOI CONTINUARE ?" 

12020 F=1:GOSUB10000 
12030 IFA$="S"THEN10 
12040 PRINT" DDK - CIAO!!" 

12045 END 
12050 END 


Le uniche subroutine utilizzate sono due. 

La 10000 serve a due scopi differenti, a seconda che il flag F sia uguale 
a zero o ad uno. Nel primo caso è utilizzata per arrestare il programma 
dopo che è stata stampata la pagina iniziale con l’indicazione delle op- 
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zioni in attesa che venga premuto un tasto. Nel secondo caso la linea 
10010 viene saltata, e la subroutine è utilizzata per introdurre l’opzione 
letterale A$ o il numero A; 

La 11000 serve a stampare la barra orizzontale. 

La 12000 non è una subroutine e contiene la richiesta di continuazione. 

In verità c’è anche una subroutine (poco ortodossa) nelle linee 4000-4045 
che agisce solo se il flag FF è uguale ad uno, e capirete in seguito il per¬ 
ché della sua esistenza. 

Passiamo all’analisi del listato. 

Fino alla linea 140 si ha la stampa della pagina iniziale e la richiesta di 
scelta delle opzioni. 

Grazie alla 150, in caso di valori numerici che non siano 1, 2, o 3 si ha 
il ritorno a 10, e perciò anche se il tasto battuto è letterale, la risposta 
non viene accettata. Nella 160 si ha lo smistamento alle linee 1000, 4000, 
7000 a seconda del tipo di problema scelto. 

In 1000, dopo aver stampato la legge del moto 

I = s + W 

(dove 5 è lo spazio iniziale), si richiede quante delle 4 variabili hanno va¬ 
lore noto. 

È accettato solo il caso in cui si conoscano 3 variabili: battuto il tasto 
corrispondente alla lettera iniziale della variabile incognita, in 1100-1130 
si ha lo smistamento in quattro routine ciascuna delle quali risolve la 
legge del moto esplicitata rispetto ad una variabile. 

In 1625 e 1825 vengono eliminati i casi in cui rispettivamente t e v sono 
nulli perché altrimenti si avrebbe una divisione per zero. Per maggior 
utilità il tempo è calcolato anche in ore, minuti e secondi, e la velocità 
anche in km/h. 

Alla 4000 inizia invece la trattazione del moto rettilineo uniformemente 
accelerato. 

Vengono prima presentate le due leggi del moto 
, 1 

/ = s+wt + — at 2 v = w + at 

con 5 = spazio iniziale e w = velocità iniziale. 

Le variabili sono sei e basterebbe conoscerne quattro per poter risolvere 
qualunque problema, ma ciò comporterebbe 15 diverse possibilità di so¬ 
luzione.' 

'Corrispondenti alle combinazioni di sei elementi di classe 4 (vedi programma sul calcolo 
combinatorio). 
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E sarebbero troppe per la capacità di memoria del Commodore 64 da 
8K. 

Ho ripiegato quindi su un compromesso: suppongo che siano sempre 
noti lo spazio e la velocità iniziali (ciò avviene in realtà nella maggior 
parte dei problemi). 

Basta quindi trattare i sei casi in cui si conoscano due delle quattro ri¬ 
manenti variabili: l, v, a, t. 

Le due variabili note vengono battute dopo la richiesta alle linee 4110 e 
4120, e trasformate in C$ e D$. 

Nelle linee 4130-4180 si ha lo smistamento a seconda della combinazione 
scelta. 

Si noti che, nel caso si fosse battuta per errore una lettera non compresa 
nelle quattro previste (o una cifra o un simbolo), la linea 4190 rispedi¬ 
rebbe il programma indietro per un nuovo e corretto ingresso di dati. 
Da 5000 a 6090 vi è la trattazione dei sei casi possibili, ciascuno con le 
relative uscite alla routine 9000 quando i dati introdotti provocherebbero 
una divisione per zero. 

Nella linea 5000 si può notare un nuovo flag FF = 1. La ragione della 
sua esistenza risiede nel fatto che la “pagina video” usata per scrivere le 
leggi del moto e le richieste precedenti, avrebbe occupato più delle 25 ri¬ 
ghe dello schermo, provocando un antiestetico scorrimento verso l’alto. 
Con questo flag invece si ha un cancellamento del video e la ristampa 
delle sole leggi del moto (linee 4000-4045). 

Rimane da esaminare il caso in cui (7000 e seguenti) il problema da ri¬ 
solvere si riferisca al moto circolare uniforme. 

Vengono, al solito, 

v 

dove v è la velocità 
ed a l’accelerazione 
Poiché 


stampate le due leggi del moto 



tangenziale, r il raggio, T il periodo, / la frequenza 
centripeta. 



in realtà ci sono solo quattro variabili v, r, T, a e due equazioni. 
Quindi è sufficiente conoscere almeno due di queste quattro variabili, 
per poter calcolare tutte le altre. 

Il procedimento è simile a quello del moto uniformemente accelerato: in 
più ci sono le tre linee 7140, 7160 e 7180 che, nel caso in cui una delle 
due variabili note sia la frequenza, invia il programma agli stessi indiriz¬ 
zi che sono previsti quando la variabile nota è T. 
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Fra le risposte ogni volta viene fornito anche il valore della frequenza in 
hertz e della velocità angolare in radianti al secondo. 


BALISTICA 


Consideriamo un’arma che spari un proiettile con un angolo di elevazio¬ 
ne a ed una velocità iniziale V. 

Se poniamo l’arma nell’origine di un sistema cartesiano di riferimento, il 
proiettile descriverà una parabola di questo tipo. 



Dove OA è la gittata, e il vertice della parabola ha coordinate OB ed 
OC. 

V x e V y sono le componenti della velocità iniziale lungo gli assi coordina¬ 
ti e valgono rispettivamente 


V x - V cos a 
V y = V sen a 

Consideriamo il proiettile in una posizione P qualsiasi della traiettoria: 
mentre esso si muove, le sue proiezioni P x e P v sugli assi si muovono ri¬ 
spettivamente con moto rettilineo uniforme e con moto rettilineo unifor¬ 
memente ritardato. 

Infatti su P y agisce l’accelerazione di gravità (g = 9,81 m/sec) rivolta 
verso il basso che ne frena il moto. 

Dal programma precedente sappiamo che le leggi del moto sono 
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r op x = v x ■ t 

[°Py = Vyt-\ -g-t 2 
o anche, più semplicemente, 

C x = V x ■ t 

Queste due relazioni possono essere interpretate come le coordinate pa¬ 
rametriche del punto P, cioè coordinate in funzione del parametro t. 

Il luogo di punti (cioè l’insieme di punti, la traiettoria) descritta dal pun¬ 
to P si ottiene semplicemente ricavando il parametro t dalla prima equa¬ 
zione e sostituendo l’espressione così ottenuta nella seconda equazione. 
Con semplici calcoli si ottiene 


y = 


g 

2V X 


x 2 + 


Y> 

K 


che rappresenta l’equazione di una parabola con asse verticale, con cavi¬ 
tà rivolta verso il basso, passante per l’origine, e con 



Figura 13 
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Naturalmente abbiamo trascurato l’attrito con l’aria. 

Si noti che l’angolo a è compreso fra zero e novanta gradi, e che per 
a = 45° si ha la gittata massima. 

Se a è minore di 45°, esiste sempre un secondo angolo 1 3 = 90° - a che 
produce la stessa gittata di 

E viceversa se a è maggiore di 45°. Ovviamente le equazioni delle due 
parabole sono differenti. 

Se la velocità è uguale o maggiore a 40320 km/h il proiettile non ricade 
più sulla terra perché ha superato la velocità di fuga terrestre. 

Dopo questa premessa, passiamo all’esame del listato. 


10 REM COPYRIGHT IN BASIC 
12 REM VIA SEZZE 22 LATINA 
14 REM TEL. 487631 
16 POKE53280,10 : P0KE53281,3 
20 CLR : FRINT"US" 

30 PRINTTABC15 >"BALISTICA" 

35 DIMX<29).. V ( 20)T(20) 

40 GOSUE10000 

5tì PRINT"SMURANDO UN OGGETTO IN ARIA CO SPARANDO" 

60 PRINT"CON UN ARMA),LA TRAIETTORIA DELL 0GGET-" 

70 PRINT"T0 E" SEMPRE UNA rsPARABOLAS. " 

80 PRINT"HINDICHIAMO CON r»/3 LA VELOCITA" INIZIALE" 

90 PRINT"E CON WS L 'ALZO CCIOE" L'ANGOLO FRA LA" 

100 PRINT"DIREZIONE DI TIRO E IL PIANO ORTZZON-" 

110 PRINT"TALE)." 

120 GOSUE1 0000 

130 INPUT"SMQUANTQ E" V (IN KM/H)";V 
135 IFV>~40320THENG0SIJB12000 

140 PRINT"MED A CBATTI UNA VIRGOLA FRA I GRADI,I" 

150 INPUT"PRIMI E I SECONDI)";G,P,S 

160 VV—V/3.6 : SS=S/60 ; P1 =P+SS ; F’F=P 1 /60 : G1 =G+PP : A-G1 *ir/180 
165 IFA>=tr/2THEN10 
170 VX*VV*C0S(A):VV=VV*SINCA> 

175 VX* I NT < VX* 1000 ) /1000 : VV= I NT < VV* 1000 > /1000 

177 VV=INT C VV*1000)/1000 

180 PRINT"DTK - LA VELOCITA' DI"V"KM/H" 

190 PRINT"CORRISPONDE A"VV"M/SEC.’ 

200 PRI NT "«CON L'ALZO CHE MI HAI DATO, LA COMPONE!!- " 

210 PRINT"TE LUNGO L'ASSE ORIZZONTALE E'" 

220 PRINTTAB<10)"«WX="VX"M/S" 

230 PRI NT "MENTRE LA COMPONENTE VERTICALE E"" 

240 PRINTTAB<10) "Wv’Y= "VV"M/S" 

250 GOSUB10800 

260 Gì =2*VX*VY/9.81 :QY=VY 12/ <2*9.81) 

265 GI = INT C GI* 1000)/1000 : QV=INT <QV*1000)/1080 
278 PRINT"«LA GITTATA E' DI"Gl"METRI," 

280 PRINT"«MENTRE ALLA DISTANZA DI"G1/2"METRI" 

290 PRINT"L'OGGETTO RAGGIUNGE LA QUOTA MASSIMA" 

300 PRINT"Dr'QY"METRI." 

310 GOSUB11000 

320 PRI NT "CEDIAMO COME SI OTTENGONO QUESTI RI SUL-" 

330 PRINT"TATI : " 

340 PRINT"«LUNGO UNA LINEA ORIZZONTALE IL MOTO E " 

350 PRINT"RETTILINEO UNIFORME E LA LEGGE DEL MOTO" 

368 PRINT"E'" 

370 PRINTTAB<10)"X="VX"T" 
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380 FRINT"«MENTRE LUNGO UN ASSE VERTICALE IL MOTO" 

390 FRINT"E' UNIFORMEMENTE RITARDATO (CON ACCELE-" 

400 FRINT"RAZIONE C0STANTE=-9.8 M/SS) E CON VELO-" 

410 FRINT"CITA' INIZIALE="VV"M/S>." 

420 FRINT"«CIOÈ' LA LEGGE DEL MOTO E'" 

423 L$=STR#(VV> : L=LEN<L$> 

425 PRINTTAB<13+L) " «11 2" 

430 PRINTTAB<7)"V="VV"T- - 9.8 T" 

440 FRINTTAB(13+L)"2" 

450 PRINT :GOSUB10000 

460 FRINT"«PRENDI NOTA DI QUESTE DUE EQUAZIONI E.." 

470 GOSUB11000 

480 FRI NT" L'ESSE RAPPRESENTANO LE SCOORDINATE PARA-!" 

490 PRINT"METRICHES DEL CORPO IN MOVIMENTO,IN FUN-" 

500 FRINT"ZIONE DEL PARAMETRO T." 

510 GOSUB10000 

520 FRINT"«RICAVANDO T DALLA PRIMA EQUAZIONE E" 

530 FRINT"SOSTITUENDO NELLA SECONDA,SI OTTIENE" 

540 C1=9.81/<2*VX12>:C1$=STR*<C1> LI=LEN<C1$> 

550 C2=VV/VX:C2=INT<C2*10000>/10000 
555 FRINTTAB(9+L1>"«£" 

560 PRINTTAB<4)"V=-"C1"X +"C2"X" 

570 FRINT"«CHE E' IL LUOGO DI PUNTI DESCRITTO DAL" 

580 FRINT"CORPO IN MOTO,ED E' UNA PARABOLA CON" 

590 FRINT"ASSE VERTICALE,CONCAVITÀ' RIVOLTA VERSO" 

600 PRINT"IL BASSO,PASSANTE PER L'ORIGINE E PER" 

610 PRINT"IL PUNTO" 

620 PRINTTAB<7)"MA=<"GI",0>" 

630 PRINT"«E AVENTE IL VERTICE NEL PUNTO" 

640 PR I NTTAB < 7 )"«?.■'=< " GI /2 ", " QV " > " 

650 GOSUB11000 

660 T=G I /VX : T= I NT ( T4-1000 > /1000 

670 PRINT'LIIL CORPO INPIEGA"T"SEC.PER TOCCARE" 

680 PRINT"IL SUOLO." 

685 PRINTTAB<8>"«KUN ATTIMO DI PAZIENZA)" 

690 GOSUB10000 
700 T=T/20 
710 F0RK=0T02@ 

720 T<K)=K*T ; T(K) = INT<T<K>*1000>/1000 
730 X(K)=VX#T<K)^X(K) = INT(X(K)*1000)/1000 
740 V<K)=VV*T<IO-4. 905*T<IO 12 : V<K) = INT<V(K)*10OO>/1000 
750 NEXTK 

760 FRINT"«ECCO LE COORDINATE DEL CORPO IN VENTI" 

770 PRINT"ISTANTI INTERMEDI,MENTRE ESSO DESCRIVE" 

780 PRINT“LA PARABOLA_" 

790 GOSUB11000 

800 PRINT"TMTEMPI(SEC) ASCISSE(M> ORDINATE(M)3" 

820 FORK=0TO20 

830 F'RINTT(K)TAB( 11 )X(K)TAB(25)V(K) 

840 NEXTK 
350 GOSUB11000 

860 PRINT"IPUOI RIPORTARE LE ASCISSE E LE ORDINATE" 

870 PRINT"SU UN GRAFICO IN CARTA MILLIMETRATA E" 

880 FRINT"CONSTATARE CHE LA TRAIETTORIA E' UNA" 

890 PRINT"PARABOLA." 

900 GOSUB10000 
910 J=A-it/4 

915 IF.J=0THENPRINT"«CON L'ALZO DA TE INDICATO,HAI LA GIT-" 

916 IFJ=ÓTHENPRINT"TATA MASSIMA.": GOTO1060 
940 JJ=tr/4—J 

950 AA=.JJ*180/it 
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960 fi 1 = IHT < iìfi ) : 02= < fìfì-fi 1 ) *60:03= I NT C 02 ) 

970 04= < 02-03)*60 :05=INT(04) 

980 FRINT"COVRESTI OTTENUTO LO STESSO GITTATA CON" 
990 FRINT"LO STESSO VELOCITO' INIZIALE,E CON UN" 

1000 FRINT"ALZO DI" 

1010 PRI NTTflB < 5 > " M" Al"' "03"'' "05"""" 

1020 FRINT"«INVECE DEI" 

1030 PRINTTAB<5> "M"G"" "P"' "S" 

1040 PRINT"3HDA TE INDICATI." 

1050 PRINT"«LA PARABOLA PERO" SAREBBE STATA DIVERSA" 
1060 GOSUB10000 

1070 PRINT"«VUOI PROVARE ANCORO ?" 

1080 GETUf: IFWi=""THEN1080 
1090 IFW$="S"THEN10 
1100 PRINT'TJOK - CIAO!!" 

1105 END 
1110 END 

10000 REM-BARRA ORIZZONTALE 
10010 FORK=1TO40:PRINT" 8b3"; :NEXTK : RETURN 
11000 REM-ATTESA 

11010 PRINTTflB<10>"W<PREMI UN TASTO>" 

11020 GETWf: IFU*=""THEN11020 
11030 RETURN 

12000 REM-VELOCITO'' DI FUGO 

12018 PRINT"MSHfiI SUPERATO LA VELOCI TO'" DI FUGA MB" 
12020 PRINT"«CON QUESTA VELOCITO" IL CORPO NON RI-" 
12030 PRINT"CADE PIU" SULLA TERRÒ." 

12040 GOSUB11008 
12050 CLR : GOTO10 


La subroutine 10000 traccia la solita barra orizzontale, la 11000 serve 
per fermare il programma in attesa che venga premuto un tasto, e la 
12000 avverte l’operatore che ha superato la velocità di fuga. Alla linea 
35 vengono dimensionate tre variabili con indice che accoglieranno i va¬ 
lori di un tabulato per permettere la trascrizione su carta millimetrata 
della parabola descritta dal proiettile. 

In un primo momento avevo pensato di realizzarla graficamente sullo 
schermo del Commodore 64, ma un reticolato di 25 righe e 40 colonne 
fornivano un grafico troppo approssimato, e del resto (se si vuole ado¬ 
perare il programma per fini didattici) è molto più utile e formativo per 
uno studente riportare i dati su carta millimetrata in modo corretto. 

In 130 è richiesta la velocità iniziale del proiettile, espressa in km/h per¬ 
ché è una unità di misura con la quale abbiamo in genere una maggiore 
familiarità. 

Se si vuole impedire che qualche buontempone introduca velocità nulla o 
negativa, basta introdurre la linea 

133 IF V<= 0 THEN 10 

e altrettanto dicasi per alzo nullo o negativo. In 135 se la velocità è mag¬ 
giore o uguale a quella di fuga, si ha l’invio alla subroutine 12000. 
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Poi (150) viene richiesto l’alzo in gradi, primi e secondi (invece che in 
radianti) per la stessa ragione di prima, cioè perché più familiari. 

In 160 i gradi, primi e secondi vengono trasformati nell’angolo A e 
espresso in radianti. 

Se tale angolo supera o uguaglia l’angolo retto (linea 165) si ricomincia 
da capo. Nelle linee 170-175 vengono calcolate le componenti V x e V y 
della velocità lungo gli assi cartesiani, e per evitare di ottenere risultati 
con un gran numero di cifre decimali grazie alla linea 175 vengono trat¬ 
tenute solo le prime tre cifre e cancellate le altre. 

Dalla linea 180 alla 300 vengono stampati i valori delle componenti V x e 
V y , la gittata e le coordinate del punto di quota massima. 

Dopo aver premuto un tasto qualsiasi, per effetto della subroutine 
11000, si ha il clear di schermo e la stampa della pagina compresa fra le 
linee 320 e 460. 

Viene stampata la legge del moto lungo l’asse x e quella relativa all’asse 
y. Si noti la trasformazione di V v in stringa (linea 423) per determinarne 
la lunghezza L e permettere quindi la stampa corretta della formula in 
425-440. 

In 470 si ricorre ancora alla subroutine 11000 e alla stampa successiva 
della pagina compresa fra le linee 480 e 640. 

Nella linea 540 il coefficiente CI dell’equazione della parabola (coeffi¬ 
ciente del termine di secondo grado) viene trasformato in stringa per de¬ 
terminarne la lunghezza LI e scrivere perciò correttamente l’equazione 
stessa, con lo stesso procedimento precedente. 

In un primo momento avevo troncato anche CI eliminando le cifre deci¬ 
mali oltre la quinta, ma per velocità iniziali piuttosto alte la parabola è 
molto allargata e il coefficiente del termine di secondo grado diviene tal¬ 
mente piccolo, che con il troncamento si otteneva risultato nullo. 

Ciò comportava come conseguenza... che la parabola diventava una ret¬ 
ta. 

Oltre alla formula della parabola, nella stessa pagina di schermo com¬ 
paiono anche le coordinate del vertice e del punto in cui la parabola ta¬ 
glia di nuovo l’asse x. 

Si ricorre ancora alla 11000 e, dopo aver premuto un tasto, si ha il cal¬ 
colo del tempo impiegato dal proiettile per descrivere l’arco di parabola 
e toccare il suolo. 

Ciò si ottiene (linea 660) semplicemente calcolando quanto tempo impie¬ 
ga il punto P x (che si muove con velocità costante V x ) per andare 
dall’origine al punto A. 

Anche questo tempo è troncato alle prime tre cifre decimali. 

La linea 685 serve ad avvertire l’operatore che quei due o tre secondi di 
attesa che seguiranno servono al Commodore 64 per eseguire i calcoli 
successivi. 

Essi (linee 700-750) consistono nel dividere il tempo precedente in venti 
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parti, e nel calcolare con un ciclo FOR NEXT i tempi e le coordinate dei 
punti che costituiranno la tabella che sarà stampata immediatamente do¬ 
po. 

Anche i numeri contenuti nella tabella sono troncati alla terza cifra deci¬ 
male. 

La tabella viene stampata con le istruzioni contenute nelle linee 800-850. 
In 860-1060 si ha la stampa dell’ultima pagina di schermo, e se l’alzo era 
di 45° si ha l’indicazione che la gittata corrisponde alla gittata massima. 
In caso contrario vengono calcolati i gradi, primi e secondi (Al, A3, A5) 
con i quali si avrebbe avuto la stessa gittata rispetto ai valori (G, P, S) 
indicati all’inizio. 

Le ultime linee (1070-1110) propongono, al solito, di far girare di nuovo 
il programma dall’inizio. 


RELATIVITÀ 


Concludiamo questo capitolo con un programma che esegue calcoli rela¬ 
tivistici. 

L’utilità di un tale programma risiede nel fatto che le correzioni relativi¬ 
stiche sono spesso talmente piccole da sfuggire persino alla possibilità di 
calcolo di un minicomputer tascabile (se non è attrezzato per il tratta¬ 
mento dei numeri sotto forma di potenze decimali). In ogni caso il cal¬ 
colo, pur essendo estremamente semplice teoricamente, resta sempre ab¬ 
bastanza delicato da eseguire. 

Con questo programma tutto invece diviene automatico e con molta fa¬ 
cilità si può constatare quali siano i valori entro cui la meccanica classi¬ 
ca deve essere sostituita da quella relativistica. 

Si abbia un’astronave che si muova con velocità V costante rispetto ad 
un osservatore che si trovi su un sistema di riferimento inerziale (cioè 
fermo rispetto alle stelle fisse). 

Se l’osservatore esegue una misura della lunghezza dell’astronave (per 
esempio calcolando quanto impiega per passare davanti ad un traguar¬ 
do, e moltiplicando il tempo così ottenuto per la velocità C), esso trova 
per l’astronave una lunghezza L. 

Ma l’astronave per effetto della propria velocità, si “accorcia” (mentre 
le altre dimensioni, per esempio l’apertura alare, 1 rimane costante). 

Un osservatore che si trovi sull’astronave non potrà mai accorgersi 
dell’accorciamento perché ogni oggetto, e quindi anche il metro con cui 
eseguirà la misura, si accorcia quando viene disposto lungo la direzione 
della velocità. 

Ammesso che un’astronave abbia bisogno di ali. Stabiliamo che gli servano per rientrare 
nell’atmosfera. 
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• -V*co5tant« 





La misura “contratta” della lunghezza dell’astronave è 


L' 



dove c è la velocità della luce. 

Per velocità V troppo piccole rispetto alla velocità della luce il termine 

— è talmente piccolo da poter essere considerato nullo, e si ottiene 
c 2 


L' = L 

Cioè la meccanica relativistica coincide con quella classica. 
L’accorciamento L-L' si chiama anche contrazione di Lorentz. 

In modo analogo il tempo T' dell’astronave trascorre più lentamente del 
tempo T rispetto all’osservatore a terra. Cioè quando per quest’ultimo è 
trascorso un secondo, sull’astronave è trascorso un tempo maggiore. 

La dilatazione del tempo è data dalla formula 


T' 



e, come prima, se V è sufficientemente piccola rispetto a c, si ha 
T = T. 
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Questi due effetti: la contrazione delle lunghezze e la dilatazione del 
tempo, non sono impressioni illusorie, ma reali. 

Infine anche la massa subisce un incremento analogo al tempo, e la mas¬ 
sa M misurata dall’osservatore a terra è legata alla massa M' misurata 
dall’astronave, dalla relazione 



V 2 . . 

In ciascuno dei casi esaminati, la quantità 1- — si chiama anche fat- 

y . 

tore di correzione relativistica, e il termine — viene anche indicato con 

c 

la lettera (3. 

Un altro calcolo di tipo relativistico è quello della composizione delle ve¬ 
locità. Secondo la meccanica classica, due velocità V t W aventi stessa 
direzione e verso, danno come risultato 

R = V+ W 

Cioè se l’astronave precedente spara un missile nella stessa direzione in 
cui si muove, con velocità W, secondo l’osservatore a terra il missile 
viaggia ad una velocità 


R = V+ W 


Ebbene, secondo la meccanica relativistica tale velocità è invece 

V+ W 


R' = 


, VW 

1_ F 


che può essere confusa con R solo se V e W sono entrambe molto picco¬ 
le rispetto alla velocità della luce c. 

Se una di esse (o ambedue) sono uguali a c si avrà come risultato 
R' = c. Infatti, come è noto, la velocità della luce è una costante uni¬ 
versale che non può essere superata. 

Vediamo ora come il programma affronta questi calcoli. 


10 REM COPYRIGHT IN BASIC 
12 REM VIA SEZZE 22 LATINA 
14 REM TEL. 487631 
28 CLR:PRINT"a8“ 


25 POKE532S0,10 :P0KE53281,3 
3© PRINTTAB<8>"CALCOLI RELATIVISTICI" 

40 GOSUB11000 

50 PRINT "SS QUESTO PROGRAMMA CALCOLA:” 

60 F'RINTTAB<5> "HI —LA CONTRAZIONE DELLE LUNGHEZZE" 

70 PRINTTAB<5>”2-L A DILATAZIONE DEL TEMPO" 

80 PRINTTAB<5>"3-L'AUMENTO DI MASSA" 

30 PRINTTAB<5>“4-LA SOMMA DELLE VELOCITA'" 

100 PRINT"HPER EFFETTO DELLA TEORIA DELLA RELATI-" 
110 PRINT"VITA'." 

120 GOSUB110O0 

130 PRINT"HSCOSA VUOI CALCOLARE ?" 

140 GOSUB10000 
150 IFA<=0ORA>4THEN140 
160 IFA=4G0T05000 
165 B=A 

170 PRINT"30K - LA VELOCITA' DELL'OGGETTO CHE STAI" 
180 PRINT"ESAMINANDO,E' ESPRESSA IN:" 

190 PRI NTTAB < 7 > " H01SETR 1 7SEC 0 IN BOVH ?" 

2 00 GOSUB10000 

285 IFAÌ="K"THENW=1:GOTO220 

210 IFA$="M"THEN220 

215 GOTO200 

220 GOSUB11000 

230 PRINT"SC:ON QUALE VELOCITA' SI MUOVE L'OGGETTO" 

240 INPUT "RI SPETTO A TE".:V 

250 IFW=1THENV=V/3.6 

255 GOSUB11008 

260 ONBGOTO1000,2000,3000 

1008 REM-LUNGHEZZE 

1010 PRINT"SOUAL'E' LA LUNGHEZZA <IN METRI> DEL-" 
1020 PRINT"L'OGGETTO IN CONDIZIONE DI RIPOSO RI-" 
1030 PRINT"SPETTO AL TUO SISTEMA DI RIFERIMENTO ?" 
1040 INPUTL 
1060 GO’oUB 12000 

1080 IFFA=1THENG0SUB16000:GOSUB13000 :GOTO170 
1085 LL=L*FA:C=L-LL 

1090 PRINT"I3SE L'OGGETTO E' DISPOSTO LUNGO LA DIRE- 
1100 PRINT"ZIONE DEL MOTO,ESSO SUBISCE UNA CONTRA-" 
Ilio PRINT"ZIONE RELATIVISTICA PARI A" 

1120 PRINTTAB<10>"a"C"METRI" 

1130 PRINTTAB<4>"HCIOE' "C*1000"MILLIMETRI" 

1140 PRI NTTAB <4 > “SJCIOE' "C#1E6" MICRON" 

1150 GOSUB11000 

1170 PRINT"SNON CI SONO CONTRAZIONI LUNGO DIREZIONI 
1180 PRINT"PERPENDICOLARI ALLA VELOCITA'." 

1190 GOSUB13000 
1200 GOTO170 
2000 REM-TEMPI 

2010 PRINT"SJCONSIGERIAMO UN INTERVALLO DI TEMPO" 
2020 PRINT"NEL TUO SISTEMA DI RIFERIMENTO." 

2030 INPUT"USUANTI SECONDI CONTIENE" :S 
2040 GOSUB12008 

2050 IFFA=1THEHG0SUB16000:GOSUB13000:GOTO170 
2060 SS=S/FA :D=SS-S 

2070 PRINT"yER UN OSSERVATORE IN MOTO CON L'OGGET- 
2080 PRINT"TO,IL TEMPO TRASCORRE PIU' LENTAMENTE" 
2090 PRINT"ED IL SUO OROLOGIO RITARDA RISPETTO AL" 

2100 PRINT"TUO DI:" 

2110 PRINTTAB<6>"ffl"D"SECGNDI" 

2120 PRINT"HCIOE' "D*1000"MILLESIMI DI SEC" 

2130 GOSUB11000 
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2140 GOSUB13000 
2150 GOTO170 
3008 REM-MASSE 

3010 PRINT" JJQUfiL 'E ' LA MASSA < IN KG> DELL'OGGETTO" 

3020 PRINT"IN CONDIZIONE DI RIPOSO RISPETTO RL TUO" 

3030 PRINT"SISTEMA DI RIFERIMENTO ?" 

3040 INPUTM 
3050 GOSUB12000 

3060 IFFfl=1THENGOSUB16000 :GOSUB13000 :GOTO170 
3070 MM=M/FA: I=MM-M 

3080 PRINT"3_B MBSSB DELL'OGGETTO IN MOVIMENTO E'" 

3090 PRINT"AUMENTATA (RISPETTO AL TUO SISTEMA DI" 

3100 PRINT"RIFERIMENTO>,E L'INCREMENTO E' DI:" 

3110 PR INTTAB ( 7 > " B" I * 1000 " GRAMMI " 

3120 I=1*1E9 

3130 F'RINT"SFARI ALLA MASSA DI" 

3135 PRINT"a"I"MILIONESIMI DI GRAMMO" 

3140 GOSUB11000 

3150 GOSUB13000:GOTO170 

4040 PRINT"SVUOI CAMBIARE TIPO DI CALCOLO ?" 

5000 REM-SOMMA DELLE VELOCITA' 

5010 PRINT "SUPPONI DI OSSERVARE UN'ASTRONAVE CHE" 

5020 PRINT"SI MUOVE IH DIREZIONE PERPENDICOLARE" 

5030 PRINT"A QUELLA IN CUI TU STAI GUARDANDO,CON" 

5040 PRINT"UNA VELOCITA' ffVS. " 

5050 PRINT"BAD UN CERTO ISTANTE ESSA SPARA UN MIS-" 

5060 PRINT"SILE NELLA STESSA DIREZIONE DEL MOTO," 

5070 PRINT"CON UNA VELOCITA' flM3 (RISPETTO AD ESSA>." 

5080 PRINT"SJ_E LEGGI DELLA MECCANICA CLASSICA DICO-" 

5030 PRINT"NO CHE RISPETTO A TE IL MISSILE SI MUO-" 

5100 PRINT"VE CON VELOCITA' COMPLESSIVA" 

5110 PRINTTABC 15> "STV+W" 

5120 GOSUB11000 

5130 FRINT"SEBBENE,SE LE VELOCITA' IN GIOCO SONO" 

5140 PRINT"SUFFICIENTEMENTE ALTE,LA VELOCITA' COM-" 

5150 PRINT"PLESSIVA DEL MISSILE HA UN VALORE INFE-" 

5160 PRINT"RIRE <TALVOLTA MOLTO INFERIORE> A QUEL-" 

5170 PRINT"LA CHE DOVREBBE AVERE SECONDO LA MECCA-" 

5180 PRINT"MICA CLASSICA." 

5190 PRINTTAB <l@:>"a< PREMI UN TASTO>":GOSUB 10000 
5200 PRINT"31NDICAMI LE DUE VELOCITA' ffV3 E fiUS,ED" 

5218 PRINT"IO TI CALCOLERÒ' LA VELOCITA' COMPLES—" 

5220 PRINT"SIVA DEL MISSILE (RISPETTO A TE>." 

5225 PRINT"BLA VEL.DELLA LUCE E' 1.079496E9 KM/SEC" 

5230 GOSUB11000 
5235 C=1.079496E9 
5240 INPUT "aV=( IN KM/H>";V 
5245 IFV<=0ORV>CTHEN5200 
5250 INPUT "514=< IN KM/H) " ;W 
5255 IFV<=0ORW>CTHEH5200 
5260 GOSUB14000 

5270 IFALCIE-10THENGOSUB16000 :GOSUB13000:GOTO5200 
5280 R=<V+W>/(1+AL > 

5290 GOSUB11000 

5300 PRINT"M-A VELOCITA' COMPLESSIVA E' DI" 

5310 PRINTTAB<7 >"a"R"KM/H" 

5315 IF1NT < R+. 001>=V+WTHENGOSUB15000 :GOSUB13000 :GOTO5200 
5320 F=C/R:F=INT<F#10000>:F=F/10000 

5325 IFFC=.99990RF=1THEHPRINT"BJGUALE ALLA VELOCITA' DELLA LUCE.":GOTO5350 
5330 PRINT"a"F"VOLTE PIU' PICCOLA DELLA" 

5340 PRINT"VELOCITA' DELLA LUCE." 

5350 GOSUB11000 
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5360 GOSUB13600 
5370 GOTO5200 
7000 END 

10000 REM—ATTESA E INTRODUZIONE ORTI 

10010 GET A*: IF A*=""THEN10010 

10020 A=VAL < A4 >:RETURN 

11000 REM-BRRRR ORIZZONTALE 

11010 FORK=1TO40:PRINT" &S”; :NEXTK:RETURN 

12000 REM—CALCOLO FATTORE RELATIVISTICO 

12010 BE=V/2.9986E3:FR=SQR C1-BET2 !> 

12020 RETURN 

13000 REM-RICHIESTA DI CONTINUAZIONE 
13010 PRINT"JfflVUQI CONTINUARE ?" 

13020 GOSUB10000 
13030 IFA*=" S" THENRETIJRN 

1304O FRINT"SVUOI CAMBIARE TIPO DI CALCOLO ?" 

13050 GOSUB10000 
13060 IFA$="S"THEN10 
13070 PRINT"JOK - CIAO!!" 

13080 END 

14000 REM-TERMINE CORREZ.VELOCITA’ 

14010 C2=1.079496E9T2 : AL=V*W/C2 
14020 RETURN 

15000 REM-CORREZ.RELAT.PICCOLA 

15010 PRINT"SSONO VALIDE LE FORMULE CLASSICHE :LA" 
15020 PRINT"CORREZIONE STA FRA LA QUINTA E LA DECI-" 
15038 PRINT"MA CIFRA DECIMALE.":GOSUB11000 :RETURN 
16000 REM-CORREZ.RELAT.TROPPO PICCOLA 
16010 PR1'NTTAB<5> "SS- A CORREZIONE RELATIVISTICA E'" 

16020 F'R INTTAB <. 7 > " SASSOLUTAMENTE TRASCURABILES" 

16030 GOSUB11000 sRETURN 


La subroutine 10000 serve sia per arrestare il programma in attesa che 
venga premuto un tasto, che per introdurre dei dati senza che sia neces¬ 
sario battere il RETURN. 

La 11000 stampa la solita barra orizzontale. 

La 12000 calcola il termine ( ( 8= BE) e il fattore di correzione relativisti¬ 
ca (= FA) 1 . La 13000 contiene la richiesta di continuazione per nuovi 
calcoli. 

La 14000 calcola il secondo termine a denominatore nella formula di ad¬ 
dizione delle velocità. 

La 15000 informa l’operatore che la correzione relativistica è talmente 
piccola da non fornire differenze apprezzabili fra il calcolo classico e 
quello relativistico. 

Ed infine la 16000 informa che la correzione relativistica è assolutamente 
trascurabile, al punto che neanche il Commodore 64 riuscirebbe a calco¬ 
larla. Fino alla linea 140 vengono stampate le opinioni offerte. 

Nella linea 150 vengono rifiutate le risposte negative, nulle o maggiori di 
4. 


A titolo di curiosità: il Commodore 64 accetta anche variabili con più di due lettere, ma 
riconosce solo le prime due. Per esempio se battete BETA = 5 esso memorizzerà BE = 5. 
Lo sapevate? 
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Se la risposta è 4, alla linea 160 si ha un salto alla 5000 per la routine 
che riguarda la velocità. 

Se invece la risposta è 1 o 2 o 3, dopo aver memorizzato il valore di A 
nella variabile B (per non perderlo con ulteriori ricorsi alla subroutine 
10000), si ha la richiesta se si desidera operare con velocità espresse in 
km/h o in m/sec. 

Nel primo caso (linea 205) si pone il flag W = 1. 

La linea 215 serve per far tornare indietro il programma nel caso che la 
risposta non sia stata né K (cioè km/h) né M (cioè m/sec). 

In 230-240 viene richiesta la velocità (costante) dell’oggetto in movimen¬ 
to. 

In 250, se W = 1 (cioè se la velocità è espressa in km/h) si ha la tra¬ 
sformazione in m/sec. 

La linea 260 effettua lo smistamento alle linee 1000, 2000, 3000 a secon¬ 
da che l’opzione scelta inizialmente riguardi la contrazione delle lunghez¬ 
ze, la dilatazione del tempo o l’incremento di massa. 

Cominciamo ad analizzare la routine 1000. Dopo aver introdotto la lun¬ 
ghezza L (in 1040) si ha il calcolo del fattore FA in 12000, e se FA = 1, 
la correzione è troppo piccola per essere apprezzata dal PET e si ha l’in¬ 
vio alla 16000 per informare l’operatore che la contrazione è assoluta- 
mente trascurabile, e quindi l’invio alla 13000 per la richiesta di conti¬ 
nuazione. 

Se ciò non avviene si ha il calcolo della lunghezza LL rispetto al corpo in 
moto (linea 1085) e dell’entità della contrazione 

C = L - LL 

Per maggior comodità dell’operatore tale accorciamento viene anche 
espresso in millimetri e in micron. 

Dopo la richiesta di continuazione (linea 1190), si ha il rinvio alla linea 
170 per un nuovo calcolo dello stesso tipo (grazie alla variabile ausiliaria 
B memorizzata in precedenza, il tipo di opzione rimane immutato). 

Le routine 2000 e 3000 sono sostanzialmente identiche. 

Passiamo alla 5000 per il calcolo della somma di due velocità. 

Nelle linee 5010-5190 si ha una pagina esplicativa di ciò che il Commo¬ 
dore 64 sta per fare. Nella linea 5225 della pagina successiva, dopo aver 
avvertito l’operatore che dovrà introdurre i valori delle due velocità V e 
W, viene stampata la velocità della luce espressa in km/h (poiché sotto 
questa forma è poco nota). 

In 5235-5255 vengono richiesti i valori delle due velocità V e W e, nel 
caso fossero negative, nulle o maggiori di c, la risposta è rifiutata e si ri¬ 
torna alla 5200 cioè all’inizio della pagina. In 5260 si ha l’invio alla 
14000 per il calcolo del termine di correzione delle velocità. 
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Se tale termine è più piccolo di 10 10 si ha l’invio alla 16000 perché la 
correzione è assolutamente trascurabile, alla 13000 per la richiesta di 
continuazione, e alla 5200 se si vuole ripetere un calcolo dello stesso ti¬ 
po. 

In 5280 si ha il calcolo del risultato relativistico R e la stampa dello stes¬ 
so nella linea 5310. 

Se il risultato relativistico corrisponde a quello classico (V + W) fino alla 
quarta cifra decimale (si tenga presente che le velocità normalmente pre¬ 
se in considerazione sono sempre nùmeri interi), allora la linea 5315 in¬ 
via alla subroutine 15000, alla 13000 e alla linea 5200. Se ciò non avvie- 

c 

ne si ha in 5320 il calcolo del rapporto — = F che indica quante volte il 

H. 

risultato R è più grande di c. 

Vengono eliminate le cifre decimali di F oltre la quarta. 

Infine, se F = 1, si ha la constatazione che R uguaglia c. 

A titolo indicativo, se le velocità in gioco sono dell’ordine di 1000 
km/h, la correzione relativistica è assolutamente trascurabile (subroutine 
16000). Se sono dell’ordine di 20000 km/h il risultato relativistico coinci¬ 
de ancora con quello classico (subroutine 15000). Ed infine per velocità 
dell’ordine di 100000 km/h comincia ad essere rivelata una piccola diffe¬ 
renza fra i due risultati. 



CAPITOLO SESTO 


Miscellanea 


Non è affatto detto che un computer possa essere impiegato a fini didat¬ 
tici solo su argomenti di matematica o di fisica. 

I programmi che seguono intendono costituire solo un esempio di come 
il Commodore 64 possa essere utilmente sfruttato anche al di fuori dei 
canoni entro i quali normalmente esso opera per tradizione. 


FRASI INUTILI 


Più che un programma didattico è un divertissement con effetti abba¬ 
stanza esilaranti, nato in seguito alla lettura di un articolo comparso nel¬ 
la terza pagina del Corriere della sera. 

Come è specificato anche nel listato, esso è il risultato di una ricerca 
condotta dal prof. Marco Marchi dell’università di Pisa e dal prof. Pie¬ 
ro Morosini, direttore di laboratorio presso l’Istituto superiore di sanità. 
Essi hanno stralciato un certo numero di frasi caratteristiche dalla legge 
sulla riforma sanitaria e da articoli pubblicati da vari giornali a com¬ 
mento della legge stessa, costituendo un nucleo di 70 frasi rappresentati¬ 
ve. 

Unendo opportunamente queste frasi fra di loro è possibile formare più 
di 6000000 di periodi differenti, perfettamente accettabili sotto il profilo 
sintattico o logico. 
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100 REM COPYRIGHT IN BASIC 
110 CLR SPRINT"3B" 

112 REM VIA SEZZE 22 LATINA 

114 REM TEL. 487631 

120 P0KE53281,3 SPOKE53280,10 

130 pr i nt " &:m*mmmm*MMM*m**#**************m'' 

140 PRINT"3*B 3*1" 

150 print" 3 *s mmm mmm®. mmm w* m 3 * 1 " 

160 print"3*i m m m m m m m »m u 

170 print"3*i mm mmm mmm. mmm ■». 3*s n 

le© print"3*s ». » 1 » ». m. m 3*S" 

i90 print"3*b ». ». 1 3*b" 

200 PRINT"3*B 3*B" 

210 print" 3*b mmm m m mmm. m » m 3*s" 

220 print-”3*b *1 m m m m m. m ». m 3*B" 

230 PRINT"3*S »»*»»& » ». li » 3*S" 

240 print"3*s m m m » a m » ». 1 3*s m 

250 print"3*s » ». m mm 1 m mm » 3*s M 

260 PRINT"3*s 3*S" 

270 PRINT"3*'******#*###**##**#*#*###********##*##*B" 

280 PRINT"®A UNO STUDIO EFFETTUATO DAL PROFESSORE" 

290 PRINT"MARCO MARCHI DELL'UNIVERSITÀ' DI PISA," 

300 PRINT"E DAL PROF. PIERO MOROSINI DIRETTORE" 

310 PRINT"DI LABORATORIO DELL'ISTITUTO SUPERIORE" 

320 PRINT"DI SANITÀ'." 

330 PRINTTAB<12>"H<PREMI UN TASTO>“ 

340 GETQi:IFQ$="“THEN340 

350 PRINT" 7ftttfta» 3ENERATORE AUTOMATICO DI FRASI INUTILI®" 

360 PRINT "MS PRONTUARIO DI FRASI AD EFFETTO AD USO" 

370 PRINT"DEI POLITICI , DEI PENSATORI IMPEGNATI" 

380 PRINT"E DEGLI OPERATORI DI CERTA STAMPA." 

410 PRINT"®®'POSSIBILE FORMARE SENZA ALCUNA FATICA" 

420 PRINT"OLTRE 03 E I MILIONI® DI FRASI" 

430 PRINT"DIFFERENTI AVENTI SENSO COMPIUTO <SI FA" 

440 PRINT"PER DIRE>,DA INSERIRE A VOLONTÀ' IN RE-" 

450 PR INALAZIONI , LEGGI ED ARTICOLI." 

460 PRINTTRB<12}"SKPREMI UN TASTO>" 

470 GETA*:IFA*=""THEN470 
480 PRINT"3" 

490 PRINTTAB<7> " HalSfilSSHS T 0 PENSANDO ! ! ! 3" 

500 FORK=1TO1000 :NEXT 
510 PRINT"3" 

520 A$<1>="L'UTENZA POTENZIALE":A*<2>="IL BISOGNO EMERGENTE" 

530 A$<3> = "IL QUADRO NORMATIVO":A*<4> = "LA VALENZA EPIDEMIOLOGICA" 

540 A*<5>="IL NUOVO SOGGETTO SOCIALE":A$<6)="L'APPROCCIQ PROGRAMMATICO" 

550 A$<7> = "L'ASSETTO POLITICO ISTITUZIONALE":A$<8>="IL CRITERIO METODOLOGICO" 
560 A$<9>="IL MODELLO DI SVILUPPO":A$<10>="IL METODO PARTECIPATIVO" 

570 B»<1>=" SI CARATTERIZZA PER":B*<2>=" PRIVILEGIA":BÌC3>=" PREFIGURA" 

580 B$<4>=" RICONDUCE A SINTESI":B$<:5>=" PERSEGUE":B*C6>=" ESTRINSECA" 

590 B*<7>=" SI PROPONE"sB*<8>=" PRESUPPONE":B*<9>=" PORTA AVANTI" 

600 B*<10>=" AUSPICA" 

610 C$<1>=" IL RIBALTAMENTO DELLA LOGICA ASSISTENZIALE PREESISTENTE" 

620 C*<2>=" IL SUPERAMENTO DI OGNI OSTACOLO E RESISTENZA PASSIVA" 

630 C$<3>=" UN ORGANICO COLLEGAMENTO INTERDISCIPLINARE ED UNA PRASSI DI" 

640 C*<3>=C*<3>+" LAVORO DI GRUPPO" 

650 C$<4>=" LA PUNTUALE CORRISPONDENZA FRA OBIETTIVI E RISORSE" 

660 C$<5>=" LA VERIFICA CRITICA DEGLI OBIETTIVI ISTITUZIONALI E L'INDI" 

670 C$<5>=C*<5>+"VIDUAZI0NE DI FINI QUALIFICANTI" 

680 C*<6>=" IL RIORIENTAMENTO DELLE LINEE DI TENDENZA IN ATTO" 

690 C*<7>=" L'ACCORPAMENTO DELLE FUNZIONI ED IL DECENTRAMENTO DECISIONALE" 

700 C*<8>=" LA RICOGNIZIONE DEL BISOGNO EMERGENTE E DELLA DOMANDA NON " 

710 C*c.8> =C*<3> + "SODDISFATTA" 
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720 C*<9>=" LA RICONVERSIONE ED ARTICOLAZIONE PERIFERICFI DEI SERVIZI" 

730 C$<10>=" UN CORRETTO RAPPORTO FRA STRUTTURE E SOVRASTRUTTURE" 

740 D*<1>=" NEL PRIMARIO INTERESSE DELLA POPOLAZIONE" 

750 D»<2>=" SENZA PREGIUDICARE L'ATTUALE LIVELLO DELLE PRESTAZIONI" 

760 D*<3>=" AL DI SOPRA DI INTERESSI E PRESSIONI DI PARTE" 

770 D$< 4 > = " SECONDO UN MODULO DI INTERDIPENDENZA ORIZZONTALE" 

780 D$<5>=" IN UNA VISIONE ORGANICA E RICONDOTTA A UNITA'" 

790 D *<6>=" CON CRITERI NON DIRIGISTICI" 

300 0$<7>=" AL DI LA' DELLE CONTRADDIZIONI E DIFFICOLTA' INIZIALI" 

810 D*<8>=" IN MANIERA ARTICOLATA E NON TOTALIZZANTE" 

820 D$<9>=" ATTRAVERSO I MECCANISMI DELLA PARTECIPAZIONE" 

830 O*<10>=“ SENZA PRECOSTITUZIONE DELLE RISPOSTE" 

840 E*<1>=" SOSTANZIANDO E VITALIZZANDO" 

850 E*<25=" RECUPERANDO OVVERO RIVALUTANDO" 

860 E$<3>=" IPOTIZZANDO E PERSEGUENDO" 

870 E* <45-." NON ASSUMENDO MAI COME IMPLICITO" 

380 E*<55=" FATTUALIZZANDO E CONCRETIZZANDO" 

890 E$<65=" NON SOTTACENDO MA ANZI PUNTUALIZZANDO" 

900 E$<75=" POTENZIANDO ED INCREMENTANDO" 

910 E*<35=" NON DANDO CERTO PER SCONTATO" 

920 E*<95=" EVIDENZIANDO ED ESPLICITANDO" 

930 E*<105=" ATTIVANDO ED IMPLEMEHTRNDQ" 

940 F*<15=" NEI TEMPI BREVI,ANZI BREVISSIMI" 

950 F*<25=" IN UN'OTTICA PREVENTIVA E NON PIU' CURATIVA" 

960 F#<35=” IN UN AMBITO TERRITORIALE OMOGENEO,AI DIVERSI LIVELLI" 

970 F*<45=" NEL RISPETTO DELLA NORMATIVA ESISTENTE" 

980 F$<55=" NEL CONTESTO DI UN SISTEMA INTEGRATO" 

990 F$<65=" QUALE SUA PREMESSA INDISPENSABILE E CONDIZIONANTE" 

1000 F*<75=" NELLA MISURA IN CUI CIO' SIA FATTIBILE" 

1010 F$<35=" CON LE DOVUTE ED IMPRESCINDIBILI SOTTOLINEATURE" 

1020 F$<95=" IN TERMINI DI EFFICACIA E DI EFFICIENZA" 

1030 F*<105=" A MONTE E A VALLE DELLA SITUAZIONE CONTINGENTE" 

1040 G*<15=" LA TRASPARENZA DI OGNI ATTO DECISIONALE" 

1050 G*<25=" LA -NON SANITARIZZAZIONE DELLE RISPOSTE" 

1060 G*<35=" UN INDISPENSABILE SALTO DI QUALITÀ'" 

1070 G*<45=“ UNA CONGRUA FLESSIBILITÀ' DELLE STRUTTURE" 

1080 G$<55=" L'ANNULLAMENTO DI OGNI GHETTIZZAZIONE" 

1090 G*<65=" IL COINVOLGIMENTO ATTIVO DI OPERATORI ED UTENTI" 

1100 G*<75=" L'APPIANAMENTO DELLE DISCREPANZE E DELLE DISCRASIE ESISTENTI" 
1110 G$<85=" LA RIDEFINIZIANE DI UNA NUOVA FIGURA PROFESSIONALE" 

1120 G$<95=" L'ADOZIONE DI UNA METODOLOGIA DIFFERENZIATA" 

1130 G$<105=" LA DEMEDICALIZZA21OHE DEL LINGUAGGIO" 

1140 A1=INT<10#RND<TI>+1>:B1=INT<10*RND<TI5+1> 

1150 CI = INT<10*RNO<TI> + 1>:D1 = INT<10#RND<TI5 + 15 
1160 E1 = INT < 10*RND<TI 5 + 1 5 :F1=INT<10#RND<TT5+1 5 
1170 G1=INT<10#RND<TI5+1> 

1180 PRINT" MHCWMMW "CAI 5B*<B1 50*<D1 >E*<E1 5F$<F1 >G*<G1 > 

1190 PRINT"5ISIsMf/UOI CONTINUARE? S" 

1200 CETW* sIFW$=""THEN1200 
1210 IFW$="S"THEN430 

1220 PRINT"BOK - SPERO DI ESSERTI STATO D'AIUTO!!" 

1230 END 

1240 PRINTTABOOVaisHCPREMI UN TASTO 5 3" 

1250 GETA*:IFA*=""THEN1250 
1260 PRINT"J":RETURN 


La struttura del programma è molto semplice. 

Fino alla linea 470 si hanno due pagine di schermo esplicative, come 
cappello iniziale. 
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Le linee 490-500 sono coreografiche e simulano una azione di riflessione 
(che dura pochi secondi), necessaria per “partorire” il periodo lettera¬ 
rio. 

Le linee 520-1130 costituiscono il nucleo di frasi-base. 

Esse sono suddivise in sette gruppi di stringhe 

A$ B$ C$ D$ E$ F$ G$ 

ciascuno formato da dieci stringhe. 

Nelle linee 1140-1170 vengono generati casualmente sette numeri com¬ 
presi fra 1 e 10 

Al B1 CI DI E1 FI Gl 

e nella linea 1180 vengono stampate consecutivamente le stringhe corri¬ 
spondenti a ciascuno dei sette numeri, una per ogni gruppo. 

Il resto è chiaro: se si vuole ricominciare con un’altra frase, si ha un sal¬ 
to indietro alla linea 480. 

Al solito, la subroutine 1240 serve per fermare il programma nelle prime 
due pagine di schermo. 


ELIZA 


Questo programma non è mio, ma è un adattamento per il Commodore 
64 di un interessante lavoro creato da Joseph Weizebaum 1 in linguaggio 
LISP. 

L’ho tratto da un articolo della rivista BIT (anno 2 num. 4) in cui esso 
compare già tradotto in Basic. 

Rappresenta un tentativo (abbastanza ben riuscito) di stabilire una simu¬ 
lazione di dialogo intelligente fra l’uomo e una macchina. 

Con questo programma il Commodore 64 assume l’identità di una psi¬ 
coanalista di nome Eliza, alla quale l’operatore può confidare i propri 
problemi (di qualunque natura essi siano), e instaurare cosi un dialogo 
coerente in cui la macchina (quasi sempre) risponde in modo logico e 
talvolta disarmante o ironico. La lingua inglese si presta in modo parti¬ 
colare, per sua natura, ad un programma di questo tipo. 

I risultati sarebbero stati molto più scadenti sintatticamente se il pro¬ 
gramma fosse stato tradotto in italiano. 

Comunque può essere usato ottimamente per esercitazioni in lingua in¬ 
glese. 

'“ELIZA - A computer program for thè study of naturai language communication bet- 
ween man and machine” COMM. ACM 9,1 (Jan. 1966). 
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Occorre però un minimo di abilità (che del resto si acquista facilmente 
dopo qualche tentativo) per sfruttare al massimo la capacità di dialogo 
potenzialmente contenuta nel programma. 


10 CLR:PRINT"33" 

20 FORK=0TO1:POKE53280+K,3:NEXT 

30 NI=38 sN2=12:H3=115 

40 FORK»1 TOH1+N2+N3+3:READK*:NEXT 

50 fr i nt " a+***mm*+*mm**mm*+#**mm*****+M*w" 


51 

PRINT"3+B 






3*B' 

52 

print" afa 

twiwt 

ffl 

ffl 

tmmìì 

mmm 

S**B' 

53 

PRINT"3*S 

ffl 

ffl 

ffl 


ffl ffl 

3*B' 

54 

PRI NT "3*1 

mm. 

m 

ffl 

mm. 

ffl ffl 

S*S' 

57 

PRI NT "3*1 

m 

a 

ffl 

m 

mwam 

3*B' 

58 

PRI NT "3*1 

mmm 

msmm 

ffl 

mmm 

1 1 

3*B' 

59 

PRI NT "3*1 






3+S' 


60 F'R I NT " 5#+:■§ 11 

70 FRINT"SJCON QUESTO PROGRAMMA PUOI AVERE UN" 

71 PRINT"COLLOQUIO CON Lfl DOTTORESSA fiE L I Z A3" 

72 PRINT"<PSICOAHALISTA DI CHIARA FAMA E DI NA-" 

73 PRINT"ZIOHALITA' INGLESE>. PUOI SOTTOPORLE I" 

74 PRINT"TUOI PROBLEMI E RICEVERE UTILI CONSIGLI" 

75 PRINT”PER RISOLVERLI." 

76 PRINT"ffl DOPO AVER BATTUTO LA DOMANDA , TERMINA" 

77 PRINT"CON B ■ 0 ! 0 ?3 PER FARLE CAPIRE CHE LA" 

78 PRINT"STESSA E' FINITA." 

79 PRINTTABCIOPREMI UN TASTO>3" 

80 GETA$: IFA$=""THENS0 
85 PRINT"3":A$="" 

100 DIMS 138 >,R <38 >,N<38 > 

130 FORX=ITOMI:READS<X>,L:R<X>=S<X>:HCX>=S<X>+L-1sNEXT 

160 PRINT"CIAO,MI CHIAMO ELIZA." 

161 F ORJ=1TO3000:NEXT 

162 PRI NT "SISMON PARLO MOLTO BENE L'ITALIANO E PRO-" 

164 PRINT"BABILMENTE PUÒ' TORNARTI UTILE PARLARE" 

166 PRINT"CON ME IH INGLESE." 

167 PRINT"aaQUINDI DA ORA IH POI PROSEGUIREMO IL" 

168 PRINT"NOSTRO DIALOGO IN INGLESE." 

170 FORJ=1TO5000:NEXT 

190 PRI NT "SISMI, I AM ELI ZA. TELL ME VGUR PROBLEM" 

195 GOSUB10000 
200 L=1 

210 IFM10*<I*,L,1> = "'"THENI*=LEFT* <I*,L-1>+RIGHT* <I*,LEN<I* >-L) ! G0T0210 

220 L=L+1:IFL<=LEN<I*>THEN210 

280 RESTORE 

290 S=0 

300 FORK=ITOMI 

305 IFS>0THEN335 

310 READK* 

320 GOSUB15000 

330 IFAO0THENS=K iT=A :F*=K* 

331 GOTO340 
335 READS* 

340 NEXTK 

365 IFS>0THENK=S:L=T:GOTO400 
370 K=N1:GOTO570 

400 C*=" " :IFLENCI$>-LEN<;F$>-L+l>0THENC*=C$+RIGHT$a*,LEN<I#>-LEN<F*>-L+l> 
420 F0RX.=1 TOH2/2 
430 READS*,R* 

440 F0RL=1T0LEN',C*> 
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456 IFL+LEHCS*>>LEN<C$>THEN510 
480 IFMID*<C*,L,LEN<S$>>OS*THEN510 

490 C*=LEFT*<C*,L-l>+R$+RIGHT$<C$,LEN<ct>-L-LEN<S$>+l> 

495 L=L+LEH<R*> 

500 GOTO540 

510 IFL+LEH<R$> >LEN <C* THEN540 
520 IFMID#<C*,L,LEN<R$>>OR*THEN540 

530 C$=LEFT$<C$,L-1>+S*+RIGHT$ <C$ .LEN<C$>-L-LEN<R$ > + l> 

540 NEXTL 
550 NEXTX 

555 IFMI D* < C* , 2 , 1 > = " " THENC*=R IGHT$ < C$. LEN < C* > -1 > 

560 G0T0580 

570 FQRX=1T0N2:RERDR# :NEXT 

580 F0RX=1T0R<K)sRERDF* sNEXT 

590 R<K>=R<K>+1sIFRCK>>N<K>THENR<K>=S<K> 

595 R*=" M sS*=""iK*="" 

600 I$=F$:K*="*":GOSUB15000 :1Ffl=0THENPRINTF*:GOTO195 
620 PRINTLEFT$(F$,fi-l>;C*:GOTO195 

1050 DflTFTCftN VOUR","CRN I","VOU ORE","VOURE","I DONT","I FEEL" 

1060 DRTR"WHV DOHT VOLI", "WHV CRNT I " ,"ARE VOU","I CRNT", "I RM","IM" 
1070 DRTR"VOU ","I WRNT","WHRT","HOW","WHO","WHERE",“WHEN","WHV" 
1080 DRTR"NRME","CRUSE","SORRV","DRERM","HELLO","HI ","MRVBE" 

1090 DRTR"NO","VOUR",“RLWRVS", " THINK","RLIKE","VES","FRIEND" 

1100 DRTR"COMPUTER","ELIZR","MONEV","X*#" 

1230 DRTR" RRE "," RM ","WERE ","WRS VOU "," I ","VOUR ","MV " 

1235 DRTR" IVE ", " VOUVE IM "," VOURE " 

1300 REM 

1330 DRTR”DON'T VOU BELIEVE THRT I CRN*" 

1340 ORTfì"PERHRPS VOU WOULD LIRE TO BE RBLE TO*" 

1350 DRTR"VOU WRNT ME TO BE RBLE TO*" 

1360 DRTR"PERHRPS VOU DON'T WRNT TO*" 

1365 DRTR"DO VOU WRNT TO BE RBLE TO*" 

1370 DRTR"WHRT MRKES VOU THINK I RM*" 

1380 DRTR"DOES IT PLERSE VOU TO BELIEVE I RM*" 

1390 DflTR"PERHRPS VOU WOULD LIRE TO BE*" 

1400 DRTR"DO VOU SOMETIMES WISH VOU WERE*" 

1410 DRTR"DON 'T VOU RERLLV*" 

1420 DRTR "WHV DON ■" T VOLI*" 

1430 DRTR"DO VOU WISH TU BE RBLE*" 

1440 DRTfi"DOES THRT TROUBLE VOU?" 

1450 DRTR"TELL ME MORE RBOUT SUCH FEELINGS." 

1460 DRTR"DO VOU OFTEN FEEL*" 

1470 DRTR"DO VOU ENJOV FEELING*" 

1480 DRTR"DO VOU RERLLV BELIEVE I DON'T#" 

1490 DRTfl"PERHRF'S IN GOOD TIME I WILL*" 

1500 DRTR"DO VOU WRNT ME TO*" 

1510 DRTR"DO VOU THINR VOU SHOULD BE RBLE TO*" 

1520 DRTR"WHV CRN'T VOU*" 

1530 DRTR"WHV RRE VOU INTERESTED IN WHETHER OR NOT I RM*" 

1540 DRTR"WOULD VOU PREFER IF I WHERE NOT*" 

1550 DRTfl"PERHRPS IN VOUR FRNTRSIES I RM*" 

1560 DfiTR"HOW DO VOLI KNOW VOU CRN'T*" 

1570 DRTR"HRVE VOU TRIED?" 

1580 DRTR"PERHRPS VOU CRN NON*" 

1590 DRTR"DIO VOU COME TO ME BECRUSE VOLI RRE*" 

1600 DftTfl"HOW LONG HRVE VOU BEEN*" 

1610 DRTR"DO VOU BELIEVE IT IS NORMRL TO BE*" 

1620 DRTR"DO VOU ENJOV BEINO*" 

1630 DfiTfl"WE WERE DISCUSSIWG VOU NOT ME" 

1640 DRTR"OH,I*" 

1650 DRTR"VOU'RE NOT RERLLV TRLKING RBOUT ME,RRE VOU?" 

1660 DRTR"WHRT WOULD IT MERN TO VOU IF VOLI GOT*" 
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167© DATA"WHV DO VOU WRNT*" 

1680 DATA"SUPPOSE YOU SOON OOT*" 

1690 DATA"WHRT IF YOU HEVER GOT*" 

1700 DATA"I SOMETIMES RLSO WRNT*" 

1710 DRTR"WHV DO VOU RSK?" 

1720 DRTfl"DOES THRT QUESTIOH INTEREST VOU?" 

1730 DATA"WHRT RNSWER WOULD PLERSE YOU THE MQST?" 

1740 DRTR"WHRT DO VOU THINK?" 

1750 DRTR"RRE SUCH QUESTIONS IN YOUR MINO QFTEN?" 

1760 DRTR"WHRT IS THRT YOU RERLLV WRNT TO KNOW?" 

1770 DRTR"HRVE VOU RSKED RNYONE ELSE?" 

1780 DRTR"HRVE VOU RSKED SUCH QUESTIONS BEFORE?" 

1790 DRTR"WHRT ELSE COMES TO MINO WHEN VOU RSK THRT?" 
1800 DRTfl"NRMES DON'T INTEREST ME." 

1810 DRTR"I DON'T CRRE RBOUT NRMES.PLERSE GO ON.“ 

1820 DRTR"IS THRT THE RERL RERSON?" 

1830 DRTR"DON'T flit? OTHER RERSONS COME TO MINO?" 

1840 DRTR"DOES THRT RERSON EXPLRIN RNYTHING ELSE?" 

1850 DRTR"WHRT OTHER RERSONS MIOHT THERE BE?" 

1860 DRTR"PLERSE DON'T RPOLOGIZE!" 

1870 DRTR"RPOLOGIES ARE HOT NECESSRRV." 

1880 DRTR"WHRT FEELINGS DO VOU HRVE WHEN VOU RPOLOGIZE?" 
1890 DRTR“DON'T BE SO DEFENSIVE !" 

1900 DRTR"WHRT DOES THRT DRERM SUGOEST TO VOU?" 

1910 DRTR"DO VOU DRERM OFTEN?" 

1928 DRTR"WHRT RERSONS RPPERR IN YOUR DRERMS?" 

1930 DRTR"RRE VOU DISTURBED BV VOUR DRERMS?" 

1940 DRTR"HOW DO VOU DO... PLERSE STATE VOUR PROBLEM." 
1950 DRTR"VOU DON'T SEEM GUITE CERTAIN." 

I960 DfiTR"WHV THE UNCERTRIN TONE?" 

1970 DRTR"CRN'T VOU BE MORE POSITIVE?" 

1980 DRTR"VOU RREN'T SURE?" 

1990 DRTR"DON'T VOU KNOW?" 

2000 DRTR“WHV NO*" 

2010 DRTR "DON'T SfiV NO ITS RLWRVS SO NEGATIVE" 

2020 DRTR"WHV NGT?" 

2030 DRTR"RRE VOU SURE?" 

2040 DRTR"WHV NO?" 

2050 DfiTR"WHV RRE VOU CONCERNEO RBOUT MV*" 

2060 DRTR"WHRT RBOUT VOUR QWN*" 

2070 DRTR"CRN'T VOU THINK OF R SPECIFIC EXflMPLE?" 

2080 DRTR"WHEN?" 

2090 DRTR"WHRT RRE VOU THINKINO OF?" 

2100 DRTR"RERLLV,RLWRVS?" 

2110 DRTR"DO VOU RERLLV THINK SO?" 

2120 DRTR"BUT VOU RRE NOT SURE VOU*" 

2130 DfiTR"DO VOU DOUBT VOU*" 

2140 DRTR"IN WHRT WRV?" 

2150 DRTR“WHRT RESEMELRNCE DO VOU SEE?" 

2160 DRTR"WHRT DOES THE SIMILARITV SUGGEST TO VOU?" 

2170 DRTR"WHRT OTHER CONNECTIONS DO VOU SEE?" 

2180 DRTfl"COULD THERE RERLLV BE SOME CONNECTIONS?" 

2190 DRTR"HOW?" 

2200 DRTR"VOU SEEM QUITE POSITIVE." 

2210 DRTR"RRE VOU SURE?" 

2220 DfiTR"I SEE." 

2230 DRTR"I UNDERSTRND." 

2240 DRTR "WHV DO VOU BRINO UP THE TOPIC OF FRIENDS?" 

2250 DfiTR"DO VOUR FRIENDS WORRV VOU?" 

2260 DRTR"DO VOUR FRIENDS PICK ON VOU?" 

2270 DRTR"ARE VOU SURE VOU HRVE RNV FRIENDS?" 
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2280 DATA"DO VOU IMPOSE OH VOUR FRIENDS?" 

2296 DATA"PERHAPS VOUR LOVE FOR FRIENDS WORRIES VOLI" 

2300 DATA"DO COMPUTERS WORRV VOU?" 

2310 DATA"ARE VOU TALKINO ABOUT ME IN PARTICULAR?" 

2320 DATA"ARE VOU FRIGHTENED BV MACHINES?" 

2330 DATA"WHV DO VOU MENTION COMPUTERS?" 

2340 DATA"WHAT DO VOU THINK MACHINES HAVE TO DO WITH VOUR PROBLEM?" 
2350 DATA"DON 'T VOU THINK COMPUTERS CAN HELP PEOPLE?" 

2360 DATA"WHAT IS IT ABOUT MACHINES THAT WORRIES VOU?" 

2370 DATA"SAV,DO VOU HAVE ANV PSVCHOLOGICAL PROBLEMS?" 

2380 DATA"WHAT DOES THAT SUGGEST TO VOU?" 

2390 DATA"I SEE" 

2400 DATA"I 'M HOT SURE I UNDERSTAND VOU FULLV" 

2410 DATA"COME COME ELUCIDATE VOUR THOUGHTS" 

2420 DATA"CAN VOU ELABORATE ON THAT?" 

2430 DATA"THAT IS QUITE INTERESTING." 

2440 DATA"WHV DO VOU HAVE PROBLEMS WITH MONEV?" 

2450 DATA"DO VOU THINK MONEV IS EVERVTHING?" 

2460 DATA"ARE VOU SURE THAT MONEV IS THE PROBLEM?" 

2470 DATA" I THINK WE WANT TG TALK ABOUT VOU., NOT ABOUT ME." 

2488 DATA"WHAT'S ABOUT ME?" 

2490 DATA "WHV DO VOU ALWAVS BRINO UP MV NAME?" 

2530 DATAI ,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,?,25,3 
2540 DATA28,4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,9 
2550 DATA49,2,51,4,55,4,59,4,63, 1,63,1 ,64,5,69,5,74,2,76,4 
2560 DATA80,3,83,7,90,3,93,6,99,7,116,3,113,3,106,7 
10800 I*=" ":Z=1 
10010 GETA*:IFA$=""THEN10010 

10020 IFA*=" . "ORA*=" ! "ORA* = "?"THENPRINTA$:A*=CHR*< 13> 

10022 I FA#=CHR* <13 > THENPR INT :I$=I*+“ ": RETURN 
10030 IFASC< A* >=20THEN10108 
10040 IFASC < A* > C320RASC C A* >>90THEN10010 
10060 PRINTA* ,- :I$=I$+A$ :Z=Z+1 : GOTO 10010 
10100 IFZ=1THEN18010 

10110 PRINTA$j! ;Z=Z—1 : I$=LEFT$< I#,Z> .-GOTO1001G 
15800 A=0 
15818 A=A+1 

15020 IFLEN<I*>-A<LENCK*>-1THENA=0sRETURN 
15038 IFMID* <I*,A,LEN < K$ > > =K*THENRETURN 
15840 GOTO15010 


L’unica innovazione consiste nel fatto che l’istruzione INPUT è stata so¬ 
stituita con un ciclo di istruzioni GET, in modo da evitare la necessità di 
premere il tasto RETURN alla fine di ogni frase di domanda o di rispo¬ 
sta dell’operatore. 

Basta terminare la frase con un punto, un punto interrogativo o un pun¬ 
to esclamativo, ed Eliza capirà che può cominciare ad elaborare la rispo¬ 
sta. 

NI è il numero di parole chiave contenute nelle linee 1050-1100. 

N2 è il numero delle coniugazioni (linee 1230-1235) che permettono di 
trasformare 


I in YOUR 
MY in YOUR 


ecc. 
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N3 è il numero di frasi di risposta e sono contenute nelle linee 1330- 
2490. 

Quando Eliza deve rispondere, prima ricerca nella frase battuta dall’ope¬ 
ratore le parole chiave, e poi fornisce la frase di risposta dopo averla co¬ 
niugata. 

Le frasi di risposta sono determinate dall’elenco di dati numerici conte¬ 
nuti nelle linee 2530-2560. 

Se la frase di risposta termina con un asterisco, essa viene completata 
aggiungendo la frase coniugata rispetto a quella battuta dall’operatore. 
Ecco un esempio di come scorre il programma (E sta per Eliza ed O per 
operatore): 

E - Hi, I am Eliza. Teli me your problem. 

O - Computers. 

E - Do computers worry you? 

O - No. 

E - Why no? 

O - Because I work and amuse myself with them. 

E - Is that thè reai reason? 

O - Yes. 

E - Are you sure? 

O - Yes. 

E - I see. 

O - Have computers a mind? 

E - Are you talking about me in particular? 

O - Yes. 

E - I understand. 

O - But you have not answered to me. 

E - We were discussing you not me. 

O - Tonight I have made a beautiful dream. 

E - What does that dream suggest to you? 

O - That women are a great invention. 

E - Say, do you have any psychological problems? 

O - Are you a puritan computer? 

E - Why are you interested in whether or not I am a puritan computer? 
O - Because you change argument of discussioni 
E - Oh, I change argument of discussion. 

O - Or else you are distracted. 

E - What makes you think I am distracted? 
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E si potrebbe continuare a volontà su questo tono. 

Un’occhiata alle frasi di risposta contenute nel listing può suggerire altri 
validi argomenti di discussione. 
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FRATRIE 


È una ricerca statistica sul numero di fratelli (maschi o femmine) che co¬ 
stituiscono un campione arbitrario di famiglie. Per esempio le famiglie 
degli studenti di una scuola. 

La ricerca tende a dimostrare che la distribuzione dei maschi e delle 
femmine in ciascuna famiglia è equa e segue le leggi del calcolo delle 
probabilità. 

L’argomento offre anche l’occasione di evidenziare come questa ricerca 
sia intimamente collegata con i coefficienti del triangolo di Tartaglia. 

10 REM COPVRIGHT IH BASIC 
12 REM VIA SE22E 22 LATINA 
14 REM TEL. 487631 

20 CLR:PRINT" ZJB":POKE53230,10:P0KE53281,3 
25 DIMM<5,5) 

30 PRINTTAB<7>"STATISTICA SULLE FRATRIE3"sGOSUBl1000 
40 PRINT"SHQUESTG PROGRAMMA RICEVE DATI SUI FIGLI" 

50 FRINT"MASCHI E FEMMINE DI UH CERTO NUMERO DI" 

60 PRINT"FAMIGLIE,E NE DEDUCE ALCUNI RISULTATI" 

65 PRINT"DIDRTTICRMENTE INTERESSAHTI." 

70 F'RINT"SJBF'UO 1 ESSERE PROPOSTO AD UNA CLASSE DI" 

75 PRINT"UNA SCUOLA 0 ADDIRITTURA AGLI STUDENTI" 

77 PRINT"DI TUTTA LA SCUOLA." 

80 INPUT"SHQUANTE FAMIGLIE VUOI TRATTARE";N 
90 PRINT"3DK - ORA INTRODUCI I DATI,MA RICORDATI" 

100 FRI NT’-'DI FORNIRMI ANCHE I DATI RELATIVI -AI" 

105 PRINT"FIGLI <MASCHI 0 FEMMINE) DECEDUTI 0" 

110 PRINT"NATI MORTI." 

120 GOSUB11000 :PRINT 

130 F0RK=1T0N 

140 PRINT"SBRAMIGLIA N. "K 

150 PRINT" 8BTI IANTI FIGLI HA ?" : 

160 GOSUB10500 :PRINTA1 
165 F=A:TF=TF+F 

170 PRINT"JJQUANTI DI LORO SONO MASCHI ?" ? 

175 GOSUB10500 :PRINTA* 

180 M=A:TM=TM+M 

190 IFM>FTHENPRINT" MBFRRORE! ! 3":GOTO140 
210 MCF,M>=M<F,M)+1 
390 NENTK 

400 PRINT"30K - ORA HO TUTTI I DATI SULLE"H 
410 PRINT"FAMIGL1E." 

420 PRINT"SPER SEMPLICITÀ’ TERREMO CONTO SOLO" 

430 PRINT"DELLE FAMIGLIE CON UN MINIMO DI 1 E UH" 

440 PRINT"MASSIMO DI 5 FIGLI : LE FAMIGLIE PIU'" 

450 PRINT"NUMEROSE SONO PIUTTOSTO RARE." 

520 FF=TF—TM 
525 GOSUB11000 

530 PRINT"SIN TUTTO CI SONO"TF"FIGLI DI CUI" 

540 PRINTTM"SONO MASCHI,E"FF"SONO FEMMINE." 

550 PM= I NT TM/TF* 1080 > /10 : PF= 100-PM 
560 PRINT"CIOÈ' IL"PM"M SONO MASCHI E IL" 

570 PRINTPF"’: SONO FEMMINE." 

575 GOSUB11000 

580 PRINT"SPUESTA STATISTICA E' PERO' PIUTTOSTO" 

590 PRINT"OVVIA IN QUANTO GIÀ' SAPPIAMO CHE IL" 
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600 PRINT"NUMERO DEI MASCHI E' CIRCA UGUALE A" 

610 PRINT"QUELLO DELLE FEMMINE." 

630 GOSUB10000 

640 PRINT"3E' INVECE PIU' INTERESSANTE STUDIARE" 

650 PRINT"LA SEGUENTE TABELLA:" 

655 PRINT"HS «COPIALA SU UN FOGLIO DI CARTA3" 

660 GOSUB1 0000 :PRINT"38" 

670 PRINTTAB<9>"NUMERO FIGLI MASCHI3" 

680 GOSUB11008 :PRINT 

690 PR1HT1 ABc!7> "0 1 <2 3 4 5" 

700 GOSUB11000 :PRINT 

710 FORX=1TO5:FORV=0TOX 

715 PRINTTAB<6*<V+1>>M<X,Y>; 

720 NEXTY 

725 PRINTSPRINT 

730 NEXTX 

735 GOSUB11O00 

737 PRINT"aHHHaHa":FORK=1T05:PRINTKSPRINT:NEXTK 

738 PRINT"HS t «NUMERO FIGLI PER FAMIGLIA3" 

740 GOSUB10000 

1000 PRINT"3S:-E UNA FAMIGLIA HA UN FI GL IO, ESSO PUÒ'" 
1010 PRINT"ESSERE" 

1020 PRINTTAB<8>" SHM3" TAB<15>"OPPURE"TAB<28>" flF3" 
1030 PRINT"H<DOVE DA ADESSO IN POI 013 STA PER MAS-" 
1040 PRINT"CHIO E «F3 STA PER FEMMINA?. " 

1050 PRINT"®3UINDI CI SONO 50 PROBABILITÀ' SU 100" 
1060 PRINT"CHE ESSO SIA MASCHIO,ED ALTRETTANTE CHE" 
1070 PRINT"ESSO SIA FEMMINA." 

1080 PRINT"HINFATTI GLI EVENTI POSSIBILI SONO 2,E" 
1090 PRINT"IN CIASCUNO DEI DUE CASI IL NUMERO DI" 
1100 PRINT"EVENTI FAVOREVOLI E' 1." 

1110 PR I NTTAB Ul) " «p = 1 /2=0. 50=507. " 

1120 GOSUB10000 

1130 PRINT"3SE INVECE I FIGLI SONO DUE,SI POSSONO" 
1140 PRINT"VERIFICRE LE SEGUEHTI SITUAZIONI : “ 

1150 PRINTTAB < 7> " .Bariti" TAB< 17> "MF "TAB < 27> "FF" 

1168 PRINTTAB<17>"FM3" 

1170 PRINTTAB<4>"Hl/4=257 2/4=1/2=507 1/4=257" 

1180 PRINT :GOSUB11000 

1190 PRINT"B30VE I NUMERI RAPPRESENTANO LE PROBA-" 
1200 PR INABILITA' CHE I FIGLI SIANO RISPETTIVA-" 
1210 PRINT"MENTE 2 MASCHI,1 MASCHIO E NESSUN MAS-" 
1220 PRINT"CHIO." 

1230 PRINT"HLE PROBABILITÀ' <ESPRESSE IN PERCENTUA-" 
1248 PRINT"LE? SONO SEMPRE CALCOLATE COME RAPPORTO" 
1250 PRINT"FRA IL NUMERO DI EVENTI FAVOREVOLI E IL" 
1260 PRINT"NUMERO DI EVENTI POSSIBILI." 

1270 GOSUB10000 

1280 PRINT-3SE I FIGLI SONO TRE,LE SITUAZIONI POS-" 
1290 PRINT"SIBILI SONO:" 

1300 PRINT"H «IMM MMF MFF FFF" 

1310 PRINTTAB<13>"MFM FMF" 

1320 PRINTTAB<13>"FMM FFM3" 

1330 PRINT"H 1/8= 3/8= 3/8= 1/8=“ 

1340 PRINT"H 12.57 37.57 37.57 12.57" 

1350 PRINT :GOSUB11000 

1360 PRI NT " SJCON I NUMERI CALCOLATI CON LO STESSO" 
1370 PRINT"CRITERIO PRECEDENTE." 

1380 GOSUB10000 

1390 PRINT"3SE I FIGLI SONO 4,LE SITUAZIONI POSSI-" 
1400 PRINT"BILI SONO;" 

1410 PRINT"H «1MMM MMMF MMFF MFFF FFFF" 
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1420 PRINTTAB<10>"MMFM MFMF FMFF" 

1430 PRINTTABC10>"MFMM MFFM FFMF” 

1440 PRINTTABC10VFMMM FMMF FFFM" 

1450 PRI NTTAB < 18 > " FMFM " 

1460 PRINTTABC 18>"FFMM3" 

1470 PRINT"a 1/16= 4 / 16 = 6/16= 4 / 16 = 1/16=" 

1480 PRINT"a 6.25/. 25* 37.5* 25* 6.25*" 

1490 PRINT :GOSUB11000 SPRINT:GOSUB10000 

1500 PRINT"JED INFINE SE I FIGLI SONO 5..LE SITUR-" 

1510 PRINT"2IONI POSSIBILI SONO:" 

1520 PRINT"ffl fiMHMMM MMMMF MMMFF MMFFF MFFFF FFFFF" 

1530 PRIHTTRB <8 >"MMMFM MMFMF MFMFF FMFFF" 

1540 PRINTTRB C 8 >" MMFMN MMFRI MFFMF FFMFF " 

1550 PRINT I ABC 8> "MFMNM MFMITF HFFFM FFFMF" 

1560 PRINTTRBC8)"FMMMM MFMFM FMMFF FFFFM" 

1570 PRINTTRB< 14 > "fTFFMM FMFMF " 

15S0 PRINTTRB(14)"FI1MMF FMFFM" 

1598 PRINTTRBC14 >"FMMFM FFMMF" 

1600 PR I NTTRB < 14 > " FtTFNM FFMFM " 

1610 PRINTTABC 14 > "FFfTNM FFFMMS" 

1620 PRINT"ai/32= 5/32= 10/32= 10/32= 5/32= 1/32=" 

1630 PRINT"B3.12* 15.62* 31.25* 31.25* 15.62* 3.12*" 

1640 PRINT:GOSUB11000 
1650 PRINT:GOSUB10000 

1660 PRINT"SEBBENE,ORO METTIRITO R CONFRONTO QUESTE" 

1670 PRINT"PERCENTURLI CON QUELLE CHE POSSI FIMO RI-" 

1680 PRINT"CAVARE DALLA TABELLA CHE TI HO MOSTRATO" 

1690 PRINT"ALLA FINE DEL PROGRAMMA PRECEDENTE." 

1700 PRINT :GOSUB11000 SPRINT:GOSUB10000 
1710 F0RX=1TG5 

1720 PRINT "IMPANIGLIE CON"X"|| F1GLIS" 

1730 EP=0SPRINT 
1740 FORV=0TOX 

1750 PRINTMCX,V>"FAMIGLIE CON"V"FIGLI MASCHI" 

1760 EP=EP+MCX,V> 

1770 NEXTV 

1780 PRINT"FACENDO LA SOMMA <EVENTI POSSIBILI>,SI" 

1790 PRINT"OTTIENE ="EP 

1800 PRINT"DIVIDEHDO CIASCUN RISULTATO <EVENTI" 

1810 PRINT"FAVOREVOLI) PER"EF'",E MOLTIPLICANDO" 

1820 PRINT"PER 100,SI OTTENGONO LE FREQUENZE SPE-" 

1330 PRINT"RIMENTALI." 

1840 PRINT"ESSE SONO RISPETTIVAMENTE:" 

1850 FGRV=0TOX 

1860 IFEP=0THENPRINT" MlM fl^ON CI SONO FAMIGLIE CON"X“ll FIGL13":GOTO1890 

1870 PR I NT " PERC. " V " FI GL I MF)SCH I = " I NT < M < X , V ) /EP* 1000 >/10 

1880 NEXTV 

1390 GOSUB10000 

1900 NEXTX 

1910 PRINT"3C0ME PUOI NOTARE LE FREQUENZE SPERIMEN-" 

1920 PRINT"TALI SI AVVICINANO ABBASTANZA ALLE PRO-" 

1930 PRINT"BABILITA' TEORICHEsLA CORRISPONDENZA E'" 

1940 PRINT"TANTO PIU' EVIDENTE QUANTO PIU' E' ALTO" 

1950 PRINT"IL NUMERO GLOBALE DI FAMIGLIE TRATTATO." 

I960 GOSUB11000 

1970 PRINT"aCIO' DIMOSTRA LA VALIDITÀ' DEL CALCOLO" 

1980 PRINT"DELLE PROBABILITÀ',E L'EQUA DISTRIBU-" 

1990 PRINT"ZIONE DEI MASCHI E DELLE FEMMINE DAL" 

2000 PRINT"PUNTO DI VISTA STATISTICO." 

2010 GOSUB11000 
2020 PRINT:GOSUB10000 

2030 PRINT"3E' INFINE INTERESSANTE NOTARE COME IL" 
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2048 

2050 

2060 

2078 

2080 

2098 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2210 


FRINT"NUMERO DI CONFIGURAZIONI PRESENTI NELLE 
FRINT"COLONNE SCRITTE IN S?OSSOB ALL'INIZIO" 


FRINT"DI QUESTO PROGRAMMA,CORRISFONDANO ESAT- 
PRINT"TAMENTE AI COEFFICIENTI DEL TRIANGOLO" 
PRINT"DI TARTAGLIA :" 

PRINTTABC14>"HI 1" 

PRINTTAB<11>"1 2 1" 

PRINTTAB<8>"1 3 3 

PRINTTAB < 5)"1 4 6 

PRINT" 1 C 10 

FORK=1TO40SPRINT".";:NEXTK 
GOSUB11000 


1" 


10 


1" 


1" 


PRINT"HSBISlfflv'UOI RIVEDERLE ?3" 
GETA$: IFA$=""THEN2170 


IFA$="S"THEN1000 


PRINT"30K - CIAO!" 
END 


10000 PRINT"!AB(. 10> "Jflffl':PROEMI UN TASTO>a" 

10010 GETA*: IFA$=""THEN10010 
10020 RETURN 

18500 GETA*:IFA$=""THEN10500 
10510 A=VAL<A* > :RETURN 

11000 FORK=1TO40:PRINT"5^3"; :NEXT:RETURN 


Come già accennato, il programma è abbastanza breve, in modo da con¬ 
sentire la trattazione anche di un grande numero di famiglie. 

Le uniche subroutine sono la 10000 che serve sia per arrestare il pro¬ 
gramma che per introdurre i dati senza l’uso del RETURN, e la 11000 
che serve a tracciare la solita barra orizzontale. 

Dopo il dimensionamento di una variabile con due indici (linea 25), vie¬ 
ne richiesto il numero di famiglie da trattare. 

Successivamente, con un ciclo FOR NEXT (linee 130-390), viene richiesto 
per ciascuna famiglia il numero dei figli complessivi e il numero di figli 
maschi (le femmine ovviamente si ottengono per differenza). 

La linea 210 costituisce un contatore che incrementa volta per volta il 
numero di famiglie aventi un certo numero di figli dei quali tot sono 
maschi. 

Le linee 160 e 180 contengono anche dei contatori per il conteggio glo¬ 
bale delle famiglie e dei figli maschi. In 190 c’è una segnalazione di erro¬ 
re nel caso in cui si batta un numero di figli maschi maggiore del nume¬ 
ro globale dei figli. 

In 520 viene calcolato per differenza il numero globale delle figlie fem¬ 
mine. 

Il flag FL = 1 della linea 620 serve per stampare la stringa contenuta 
nella linea 10010. 

Non resta ora che stampare la matrice M(X,Y) contenente i risultati nu¬ 
merici raccolti in tabella. La X indica il numero di figli e la Y il numero 
di figli maschi. 

Essa viene stampata grazie a due cicli FOR NEXT annidati uno dentro 
l’altro (linee 710-730). 
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In cinque pagine di schermo successive viene mostrato come, a seconda 
del numero di maschi e femmine per le famiglie che hanno da uno a cin¬ 
que figli, si può calcolare teoricamente la probabilità di quanti figli ma¬ 
schi esse possano avere. 

Occorre conoscere il concetto di probabilità teorica, come è stato tratta¬ 
to nel decimo programma. 

Per esempio consideriamo il caso in cui una famiglia abbia tre figli. 

In ordine progressivo di nascita, possono verificarsi le seguenti situazio¬ 
ni: 


MMM MMF MMF FFF 

MFM FMF 

FMM FFM 

dove M sta per maschio e F per femmina. Sono quindi 8 differenti situa¬ 
zioni possibili, e le probabilità che una famiglia con tre figli possa avere 
rispettivamente tre maschi, due maschi, un maschio e nessun maschio, 
sono nell’ordine 


4 - = 0,125 = 12 , 5 % 

8 

= 0,375 = 37 , 5 % 

| * 0,375 = 37 , 5 % 

-4 = 0,125 = 12 , 5 % 

O 

dove ogni probabilità corrisponde al rapporto fra numero di eventi favo¬ 
revoli e numero di eventi possibili. 

Fino alla linea 1630 il programma presenta appunto questi calcoli teori¬ 
ci. Si può notare come le configurazioni incolonnate siano nel numero 

13 3 1 

(nel caso di famiglie con tre figli) e come questi numeri corrispondano ai 
coefficienti del triangolo di Tartaglia 
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1 1 
1 2 1 

13 3 1 -(M + F) 3 

1 4 6 4 1 
1 5 10 10 5 1 


nel caso in cui si faccia il cubo del binomio (M + F) 3 . 

Questa corrispondenza non è casuale e può essere suscettibile di ulteriori 
approfondimenti. A questo punto vengono presi in considerazione i va¬ 
lori della tabella e vengono calcolate le frequenze sperimentali con cui 
sono presenti i maschi nelle famiglie con un numero di figli da 1 a 5. 
Se il numero di famiglie trattate è sufficientemente alto, si potrà consta¬ 
tare una buona corrispondenza fra risultati sperimentali e risultati teori¬ 
ci. 

Premetto che se provate il programma con dei valori inventati, molto 
difficilmente potrete riscontrare tale corrispondenza. 

Anche questa considerazione può risultare didatticamente utile per dimo¬ 
strare come dati statistici inventati diano luogo a risultati arbitrari. 

La linea 1760 contiene un contatore per sommare il numero di famiglie 
con un ugual numero di figli, ed ottenere cosi il numero EP di eventi 
possibili da mettere nel denominatore di ciascuna divisione. 

EP viene azzerato all’inizio di ogni ciclo nella linea 1730. 

11 calcolo delle frequenze sperimentali avviene alla linea 1870. 

La linea 1860 è necessaria nel caso in cui il numero di famiglie trattato è 
piuttosto basso, e non c’è alcuna famiglia mettiamo con 4 figli. 

In questa situazione si avrebbe EP = 0 e una divisione per zero in 1870 
con interruzione del programma e segnalazione di errore. 

Alla fine del programma (linee 2030-2130) viene messa in luce l’analogia 
del numero di eventi favorevoli con i coefficienti del triangolo di Tarta¬ 
glia, e viene offerta all’operatore la possibilità di rivedere tutto il pro¬ 
gramma. 





CAPITOLO SETTIMO _ 

Analisi matematica 


Fanno parte di questo paragrafo programmi che trattano argomenti che 
richiedono da parte del lettore la conoscenza della teoria dell’integrazio¬ 
ne e dei concetti fondamentali dei metodi risolutivi delle equazioni diffe¬ 
renziali. 

Sono comunque abbastanza accessibili anche a studenti di scuole secon¬ 
darie. 


INTEGRALI DEFINITI 


Sia data una funzione continua y = f(x). 
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L’area della zona tratteggiata è data dall’integrale 

A = \ÌAx) d* 

Tale area può essere calcolata in modo approssimato (ma con un errore 
di approssimazione piccolo quanto si vuole), suddividendo l’intervallo a , 
b in un numero n di intervallini uguali, aventi ciascuno ampiezza h, e 
applicando la formula di Thomas Simpson 1 


n ^2? 

A = y jyta ) +/(ò ) + 4- L k /[cr + (2£— 1) • A + 2 • Ì k A.a + 2kh))j 

L’applicazione di questa formula, scomoda da eseguire con carta e mati¬ 
ta, è invece particolarmente adatta per un computer 

10 REM COPYRIGHT IH BASIC 
12 REM VIA SEZZE 22 LATINA 
14 REM TEL. 487631 
16 POKE 53280,10: POKE 53281,3 
20 CLR:PRINT"03" 

30 PRINTTAB<10>"fllHTEGRALI DEFINIMITI" 

40 PRINT"B CALCOLATI CON LA FORMULA DI SIMPSON" 

50 GOSUB11000 

60 FRINT"SKISJv'UOI LE ISTRUZIONI ? " 

70 GOSUB10000 :PRINTA* 

80 IFAT="S"THENGOSUB12000 
90 PRINT"asBATTI LA FUNZIONE :M" 

100 INPUT"V = ",:Y* 

110 ‘ PR I NT " SUB 200 DEF FN A C X > = " VM : PR I NT " RUN200" 

120 PRINT"SPREMI ALTRE 2 VOLTE IL TASTO RETURN " 

130 PR I NT " 'TTTTn " :END 
200 DEF FNAOC>= X 

210 PRINT"30K - ORA FORNISCIMI GLI ESTREMI DI" 

220 PRINT"INTEGRAZIOHE : " 

230 INPUT" III ITE INFERIORE" ;LI 
240 INPUT " Sì.. IMI TE SUPER I ORE " LS 
250 GOSUB11000 

260 INPUT"SJQURNTE SUDOI VISIONI <NUM. PARI > " S 
270 PRINT"30K - UN ATTIMO DI PAZIENZA!" 

280 PRINT"BH":GOSUB11800 
290 PRINT"SMUM.SEZIONI","AREA" 

300 PR I NT "-" , "-" 

310 DX=<LS-LI>/S:T=0 
320 X=LI:V=FNA<X >:T=T+V 
330 X=LS V=FNA < X > : T=T+V 
348 M=S/2:Z=0 
350 FORK=lTOM 

360 X=LI+DX*<2#K—1>:V=FNAC X >:Z=Z+Y 

370 NEXTK:T=T+4*2 

380 M=M-1:IFM=0THEH420 

390 2=0 : FORK=1TOM 

408 X=LI+DX*2*K:V=FNA C X >:Z=Z+V 

410 NEXTK:T=T+2*Z 


Matematico inglese del 1700, studioso dei metodi di esaustione. 
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420 H~DX*T/3 

43tì PRINT“M1"S.-.'fl"B" 

440 PRINT"a®":GOSUB11000 

450 PRINT"39AMCGRA CON LA STESSA FUNZIONE ?" 

460 GOSUB10000 
4?0 IFA$="S"THEN210 

480 PRINT"SJCQN UNR FUNZIONE DIVERSA ?" 

490 GOSUB10000 

500 IFA$="S"THENCLR:GQTQ90 

510 PRINT"JOK - CIRO!" 

528 END 

10000 REM-ATTESA E INGRESSO ORTI 

10010 GETA* sIFA$=""THEN10010 

10020 A=VAL < RT > : RETURN 

11000 REM-BARRA ORIZZONTALE 

11010 FORK=1TO40 :PRINT"S«3" ; :NEXTKsRETURN 

12000 REM-ISTRUZIONI 

12010 PRINT"33URND0 VEDRAI V=?3 1 BATTI LR FUNZIONE" 
12020 F'RINT"CHE VUOI ESAMINARE." 

12030 PRINT"SPOI BATTI 2 VOLTE CONSECUTIVE IL TASTO" 
12040 PRIHT"fflRETURNS. " 

12058 PRI NT "SUCCESSI VANENTE DOVRAI INDICARMI IL" 
12060 PRINT"LIMITE INFERIORE E IL LIMITE SUPERIORE" 

12070 PRINT"DI INTEGRAZIONE." 

12080 PRINT"SINFINE DEVI DIRMI IN QUANTE PRRTI DEBBO" 
12090 PRINT"SUDDIVIDERE L'INTERVALLO DELL'ASSE X" 
12100 PRINT"COMPRESO FRA I DUE LIMITI CHE MI HAI" 
12110 PRINT"DATO <DEVE ESSERE UN NUMERO ®»ARI3 DI" 
12120 PRINT"PARTI>." 

12130 PRINTTAB«:i0>"aa (.PREMI UN TASTO>" 

12140 GOSUB10000 
12150 RETURN 


Le subroutine sono al solito: 

10000 per l’attesa e per l’ingresso dei dati; 

11000 per la barra orizzontale; 

12000 per le istruzioni. 

La funzione da integrare viene introdotta nel listato in modo analogo a 
quanto già visto nel tredicesimo programma, mediante due colpi di RE¬ 
TURN consecutivi. 

La comprensione del listato non dovrebbe presentare particolare difficol¬ 
tà. 

Vediamo alcuni esempi di funzionamento del programma. 


Primo esempio 


Sia data la parabola y = x 2 e la sua normale nel punto di ascissa 1. 
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La normale ha equazione 



e le coordinate di A e B sono 

A = (l ; l ) 



Questi risultati possono anche essere calcolati con i programmi n. 1, 2 e 
3. 


Ora proponiamoci di calcolare l’area della zona tratteggiata. Si ha 


s = 

- J 

"uj 

' 1 
>< 

1 

ìT 

II 

3x x 2 x 3 


1 , \ 2 / 

.2 4 3 


= ^ = 2,604167 


Ebbene, con il programma si ottiene lo stesso identico risultato dopo cir¬ 
ca un secondo, con sole 10 suddivisioni. 
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Secondo esempio 

Si abbiano le due cubiche 

y = 3^-2x‘ 

y = -4a 3 + 6x 2 -3x + 1 

11 loro grafico (desumibile qualitativamente dal programma numero tre¬ 
dici), è il seguente. 



Le aree delle regioni A ,, A 2 , A,, A 4 vengono anch’esse determinate esat¬ 
tamente dopo circa un secondo, con sole dieci suddivisioni. E si ha 


A, 

A 2 

a 3 

A 4 


2 (3x 2 -lx } )dx = 0,09375 
0 
1 

(-4x 3 + 6x 2 -3A:+l)dxr = 0,1875 

x 

2 


[{3X 2 - 2X 3 )-( - 4x 3 + 6 x 2 - 3x + 1 )] dx 


2 (3x 2 -2x ì )dx = 0,34375 


(2v 3 — 3c 2 + 3x— l)dv = 0,21875 
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Volendo si può ulteriormente perfezionare il programma inserendo la 
routine per trasformare il numero decimale finale in frazione decimale 
(vedi all’inizio di questo volume). 


INTEGRALI DOPPI 


È congegnato con lo stesso criterio di base del programma precedente. 


10 

REM COPYRIGHT 

IN 

BOSIC 


12 

REM VIA SEZZE 

22 

LATINA 


14 

REM TEL. 4876 

31 



16 

PGKE 53280,10 

: Pule 532 

:8 1 r 3 

20 

CLR:PR1 NT"□3" 




30 

PRINTTOB<12 >" 

SIN 

TEGROLI 

DOPPI S 1 

48 

GOSUB11000 




50 

F'R I NT " glBtv'UO I 

LE 

ISTRUZIONI ?" 

60 

GOSUB18000 




70 

IFO*=="S"THENG 

OSUB12000 


30 

PRINT"3HB0TTI 

LR 

FUNZIONE : " 

90 

INPUT "F = "si 





100 PRIMI u atum DEI- PNO<X.>= ,, P* «PRIMI "RUN208" 

110 FRIUT"«SPREMI OLTRE DUE VOLTE IL TOSTO RETURN " 

120 PRI NT " TTTTT1 " iEND 
208 DEF FNA<X>*X 
205 IFQQ—1THEHRETURN 

210 PRINT"3SJ30TTI L'ESTR.INF.IN FUNZIONE DELLO V:" 

220 INPUT"XI = ";X1 i 

230 PR I NT " a 300 DEF FNBC Y'j = "X1 $ :PRIHT"RUH300" 

240 FRINT"SPREMI OLTRE DUE VOLTE IL TOSTO RETURN3" 

250 PR I NT " TITm " 5 END 
300 DEF FNBCV> =0 
3U5 IFQQ=1THEHRETURN 

310 PRINT" OSfc'OTTI L'ESTR.SUP.IN FUNZIOHE DELLO V : " 

320 INPUT"X2=";X2* 

330 PRINT"a 400 DEF FNCC V > = "X2*:PRINT"RUN4O0" 

340 PRINT"flF'REMI OLTRE DUE VOLTE IL TOSTO RETURN3" 

350 F'R I NT " "T~I TTH " :END 
400 DEF FNC < V > =3 
405 IFQQslTHEHRETURN 

410 PRINT"30K - ORO FORNISCIMI GLI ESTREMI D'IN-" 

420 PRINT"TEGROZIONE LUNGO L'ASSE V." 

430 INPUT"H-. IMI TE INFERIORE V=";LI 
440 INPUT"».IMITE SUPERIORE V=";LS 
450 GOSUB11000 

460 INPUT"SJQUONTE SUDDIVISIONI <NUM.PORI>";S 
4re PRINT"30K - UH OTTIMO DI PAZIENZA!" 

490 REM-COLCOLO INTEGRALE DOPPIO 
495 QQ=1:GOSUB200:GOSUB300:GOSUB400 
500 DY=<LS-LI>/S:TV=0 

510 V=LI :X1=FHB<V >:X2=FNC<V >:GOSUB13000 :TV=TV+XX 
520 V=LS : X1 --FNB < V > : X2=FNC < V > : GOSUB 13000 : TV=T V+XX 
530 MV=S/2:VV=0 
540 FORK=1TOMV 

550 V=LI+DV#<2*K-1>:X1=FNB<V >:X2=FNC <V > :GOSUB13000 :VV=VV+XX 

560 NEXTK sTV=TV+4*VV 

530 MV=MV—1:IFMV=0THEN610 

5B0 VV=0 :F ORK—1TOMV 
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5y0 V=L I +DV#2*K : X1 =FNB < V > : X2=FHC < V : GOSUB1380© : VV=VV+XX 

680 NEXTK : TV=TV+2*VV 

61.8 V=0V*TV/3 

780 REM—STAMPO RISULTATI 

718 PRINT" 31UN. SEZIONI","VOLUME" 

728 PRINT"--« 

738 PRINT"aB"S;SPC<15>V 
748 PR I NT " iffil" : GOSUB 1 1880 

750 PRINT"SSJANCORA CON Lft STESSA FUNZIONE ?" 

768 GOSUB18008 
778 IFAÌ="S"THEN410 

788 PRINT"fflCON UNA FUNZIONE DIVERSA ?" 

790 GOSUB10008 
880 IFA$="S"THEN10 
S10 PRINT"ERIK - CIAO!" 

820 END 

18000 REM-ATTESA E INGRESSO DATI 
10010 GETAT:IFA*=""THEN10810 
10020 RETURN 

11800 REM-BARRA ORIZZONTALE 

11810 FORK=1TO40:PRINT"S&-S"; :NEXTK:RETURN 

12808 REM-ISTRUZIONI 

12018 PRINT"3QUANDO VEDRAI F=?d B BATTI LA FUNZIONE" 
12028 PRINT"<CONTENENTE LE VARIABILI X ED Y>..E POI" 
12830 PRINT"BATTI 2 VOLTE CONSECUTIVE IL TASTO" 

12848 PR I NT " iBRETURNB- " 

12850 PRINT"S3UCCESSIVANENTE TI CHIEDERÒ' GLI ESTRE-" 
12068 PRINT"MI D'INTEGRAZIONE IN FUNZIONE DELLA V" 

12870 PRIIIT"CON L'AVVISO Xl-?a 1 E CON X2=?3 ■" 

12088 BRINI " sJIN ENTRAMBI I CASI..DOPO AVERMELI DATI." 
12890 PRINT“BATTI 2 VOLTE CONSECUTIVE IL TASTO" 

12108 PRINT"iBRETURN3. " 

12118 GOSUB11088 

12120 PRINT"HINFINE TI CHIEDERÒ' I VALORI NUMERICI" 
12138 PRINT"CHE COSTITUISCONO GLI ESTREMI O'INTE-" 

12140 PRINT"GRAZIONE LUNGO L'ASSE V,E IL NUMERO DI" 
12150 PRINT"SUDDIVISIONI CNUMERO flPARIB> CHE DEBBO" 

12168 PRINT"FARE." 

12178 PRINTTAB<10>"a <PREMI UN TASTO> " 

12188 GOSUB10080 
12190 RETURN 

13800 REM-CALCOLO INTEGRALE CON V COSTANTE 
13818 DX= C X2-X1 - /S : TX--© 

13028 X=X1:F=FNR<X>:TX=TX+F 
13030 X-X2 :F=FNA-;X> : TX--TX+F 
13048 MX=S/2:VX=0 
13050 PORJ=1TOMX 

13068 X=X1+DX*<2*J-1>:F=FNA<X>:VX=VX+F 

13078 NEXTJ 

13880 TX=TX+4*VX 

13090 MX=MX~1 :1FHX-8T HEN13138 

13180 VX=8:FORJ=1TOMX 

13118 X=X1+DX*2*J:F =FNA <X >:VX=VX+F 

13120 NEXTJ:TX=TX+2*VX 

1313© XX=DX*TX/3 

13140 RETURN 


Il meccanismo di introduzione automatica di una linea nel listato, è ripe¬ 
tuto tre volte (linee 200, 300 e 400). Nella 200 viene inserita la funzione 
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f(x, y) 

da integrare, e in 300 e 400 le due funzioni nella variabile y che costitui¬ 
scono gli estremi d’integrazione dell’integrale più interno. 


Primo esempio 
Si voglia calcolare 



dove D rappresenta il triangolo tratteggiato. 



Figura 18 


Una generica retta orizzontale taglia il triangolo nei punti A e B le cui 
ascisse sono rispettivamente 


L’integrale 


X A = 1-7 
X B = 1 
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X 2 +/ 

x+y 


dv 


rappresenta l’area del rettangoloide avente come base il segmento AB, 
due lati perpendicolari al foglio e passanti per A e per B, e l’ultimo lato 
(curvilineo) costituito da una sezione della funzione integranda. Facendo 
variare la retta AB fra zero ed uno, si ottiene il volume del “prismoide” 
avente come base il triangolo tratteggiato. Quindi il volume è 


x 2 +y 2 
x+y 


d* dy 


d y 

J 0 


" x 2 +y 2 

,-y X +y 


dx = 


x 2 

— -xy + 2y 2 log(x+y) 


d y = 


i -y 


j'0 


y - 


3y 


+ 2y 2 log0'+1) 


4 , , 5 

ày = y log2 - — 


= 0,368636868 


Sottoponendo il calcolo di questo volume al Commodore 64, batteremo 

F = (Xt2 + Yt2)/(X + Y) 

XI = 1-Y 
X2 = 1 

Gli estremi d’integrazione lungo l’asse y sono 

y = o 
y = i 

e per un numero di suddivisioni = 10, dopo qualche secondo, si ottiene 
esattamente 


V = 0,368636868 


Secondo esempio 
Si voglia calcolare 


dx dy 


D 


l+y 
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dove D è il dominio tratteggiato delimitato dalle due parabole y = x 2 e 

x = y 2 



Le ascisse dei due punti A e B sono rispettivamente 

x A = y 2 
x B = V y 


e perciò eseguendo i calcoli a mano, si ottiene 


V = 


dr d y 
1+y 


' Jy. 

, ì+y 


■\A 


dx = 


' s! y-y 2 

. l +y 


da cui, risolvendo con il metodo di sostituzione (r = -J y), 


V = ~2~ ~ log 2 = 0,2360565 


d y 

si ha 


Sottoponendo il calcolo al Commodore 64, dovremo battere 


F = 1/(1 +y) 
X, = Y12 
X 2 = SQR(Y) 
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e con dieci suddivisioni, si ha dopo qualche secondo 

V = 0.233436268 

leggermente inferiori al valore teorico. Con 20 e con 30 suddivisioni si 
ha rispettivamente 


V = 0.235140233 

V = 0.235559394 

con un avvicinamento progressivo al valore giusto. 

Talvolta può far comodo considerare una retta verticale anziché orizzon¬ 
tale, e perciò gli estremi d’integrazione dell’integrale più interno sono in 
funzione della x (e non della y). 

In questi casi basterà “cambiar nome” agli assi x ed y, scambiando an¬ 
che le x con le y nella funzione F alla linea 200. 

Il calcolo degli integrali doppi può risultare utile anche nella determina¬ 
zione dei momenti d’inerzia. 


INTEGRALI TRIPLI 


È una ulteriore sofisticazione dei due programmi precedenti. 


ltì REM COPVRIGHT IH BASIC 

13 REM VIA SEZZE 22 LATINA 

14 REM TEL. 487631 
20 CLRSPRINT"30" 

25 POKE53280,10:P0KE53281,3 

30 PRINTTAB<12 >"INTEGRRLI TRIPL13" 

40 GQSUB11000 

50 PRINT"SfflVUOI LE ISTRUZIONI ?" 

60 GOSUB10000 

70 IPA*="S"THENGGSUB12000 

80 PRIHT"a33ATTI LA FUNZIONE:" 

30 INPUT"F=".:F* 

100 PRIHT"H 200 DEF FNA OO = "F$:PRINT"RUN200" 

110 PRINT"SPREMI ALTRE DUE VOLTE IL. TASTO RETURN3" 

120 PRINT' TTTTTn » :END 

200 DEF FNAOOs3*SINOO*COS<V> 

205 IFWW=1THENRETURN 

210 PRINT"3DK—ORA DAMMI GLI ESTREMI D'INTEGRAZIONE" 
220 GOSUB11000 

230 1NPUT"HLIM.INF.ASSE 2";ZI 
240 I NPUT " a_ IM. SUP. ASSE Z " ZS 
250 1 NPU I "SL1M. Il■ ASSE V" > V1 
260 INPUT"a_IM.SUP.ASSE V"jVS 
270 1NPUT"SLIM.INF.ASSE X" t XI 
280 INPUT"SLIM.SUP.ASSE X";XS 
290 GOSUB11000 

300 INPUT"SULIM■ <PARI > DI SUDDIVISIONI®" ;S 
310 PRINT"30K - UN ATTIMO DI PAZIENZA!" 
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328 REM-CALCOLO INTEGRALE IH 2 

325 WH=1SGOSUB208 

338 02= < 2S-21 > ,'S : TZ=8 

34© 2=21 sGOSIJB 13000 :TZ=TZ+VV 

350 2=ZL:GOSUB13000 :T2=TZ+VV 

360 M2=S/2:VZ=0 

370 F0RH=1T0M2 

388 2=21 +0Z$<2#H-1 > :GOSUB13000 :V2=V2+VV 

390 NEXTH 

400 TZ=TZ+4*V2 

410 MZ=MZ-1:IFMZ=0THEN468 

420 VZ=0:FORH=1TOI1Z 

430 2=21 +DZ*2*H : GOSUB 13000 : V2=V2+VV 

440 NEXTH 

450 TZ=TZ+2#VZ 

460 RR=D2*T2/3 

500 GOSUB11000 

510 PRINT"SNUM.SUDOIVISIOHI","INTEGRRLE TRIPLO" 

520 PRINT"-" -" 

530 PRINTTfiB< 6 >"fflB"S;SPC <15 > RR 
540 PRINT :GOSUB11008 

1000 PRINT"SJ=lNCORfl CON LA STESSA FUNZIONE ?" 

1010 GOSUB10000 
1020 IFA$="S"THEH210 

1030 PRINT"SJCON UNA FUNZIONE DIVERSA ?" 

1040 GOSUB1G000 
1050 IFA$="S"THEN10 
1060 PRINT"30K - CIAO!" 

1065 END 
1070 END 

10000 REM-ATTESA E INGRESSO DATI 
10010 GETA*:IFA$=""THEN10018 
10028 RETURN 

11000 REM-BARRA ORIZZONTALE 

11018 F0RK=1T048:PRINT"fcS";sNEXTK:RETURN 

12000 REM-ISTRUZIONI 

12018 PRINT"3QUAND0 COMPARIRÀ' F=?a ■ DOVRAI BATTE-" 
12820 PRINT"RE LA FUNZIONE" 

12030 PRINTTAB CI5 >" MF=F< X , V , Z > " 

12040 PRINT"SPOI DOVRAI PREMERE 2 VOLTE CONSECUTIVE" 
12058 PRIHT"IL TASTO #?ETURNS." 

12060 GOSUBI1000 

12070 PRIHT"Sf3UINDI DOVRAI FORNIRMI GLI ESTREMI DI" 
12030 PRIHT"INTEGRAZIONE (COSTANTI> PER CIASCUNO" 
12O90 PRIHT"DEI TRE ASSI X,V,Z." 

12108 PRINT"SINFINE DOVRAI INDICARMI IL NUMERO" 

12110 PRINT"(PARI> DI SUDDIVISIONI CHE DEBBO ESE—" 
12120 PRINT"GUIRE LUNGO CIASCUN ASSE." 

12130 PRINTTAB(10>"9MI(PREMI UN TAST0>3" 

12148 GOSUB10000 
12158 RETURN 

13008 REM-CALCOLO INTEGRALE IH V 
13810 DV= <VS-VI>/SsTY=8 
13040 V=VI :GOSUB14800 :TV=TV+XX 
13058 V=VS:GOSUB14000 :TV=TV+XX 
13060 MV=S/2:VV=0 
13070 F0RJ=1T0MV 

13080 V=VI+DV*<2*J-1>:GOSUB14008:VV=VV+XX 

13090 NEXTJ 

13100 fV=TV+4*VV 

13110 MV=MV-1 :1FMV=0THEN13160 

13120 VV=0:FORJ=1TOMV 
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13130 V=VI+DV*2*J:GOSUB14083 :VY=VV+XX 

13140 NEXTJ 

13150 TV=TV+2#VV 

13160 VV=DV*TV/3 

13170 RETURN 

14000 REM-CALCOLO INTEGRALE IN X 
14010 DX=<XS-XJ> XS:TX=0 
14020 X=XIsF=FNA<X>:TX=TX+F 
14030 X=XL:F=FNA<X >:TX=TX+F 
14040 MX=S/2:VX=0 
14050 FORK=1TOMX 

14060 X=XI+DX#C2#K-1>:F=FNA<X>:VX=VX+F 

14070 NEXTK 

14080 TX=TX+4#VX 

14090 MX=MX-1 :1FMX=8THEN14140 

14100 VX=0:FORK=1TOMX 

14110 X=XI+DX*2*K:F=FNA<X > sVX=VX+F 

14120 NEXTK 

14130 TX=TX+2*VX 

14140 XX=DX*TX/3 

14150 RETURN 

Non occorrono particolari delucidazioni: basta osservare che con la su¬ 
broutine 14000 viene eseguita l’integrazione lungo l’asse x, con la su¬ 
broutine 13000 l’integrazione lungo l’asse y, ed infine (linee 360-460) 
l’integrazione lungo l’asse z. 

Il programma può essere utilizzato, per esempio, nella determinazione 
dei baricentri dei solidi oltre che nel calcolo dei momenti d’inerzia. 


CALCOLO DELLE AREE CON IL METODO DI MONTECARLO 


Il calcolo di un’area può anche essere effettuato con un metodo legato 
alla casualità (da questo il suo nome), che ha la caratteristica di essere 



Figura 20 
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concettualmente molto semplice, e di non richiedere la conoscenza 
dell’analisi infinitesimale. 

Si abbia una funzione y = f(x) continua in un intervallo A,B. 

Consideriamo il rettangolo ABCD che contenga la regione tratteggiata di 
cui vogliamo determinare la superficie. Immaginiamo di prendere N 
punti interni al rettangolo con un criterio rigorosamente casuale. Alcuni 
di essi cadranno nella regione tratteggiata, ed altri nella rimanente parte 
del rettangolo: indichiamo con J il numero di quelli che si trovano nella 
regione tratteggiata. 

Si può capire intuitivamente come esista una proporzione fra la superfi¬ 
cie da determinare, la superficie del rettangolo e i numeri J e N. 
Chiaramente questa proporzionalità comincerà a essere evidenziata solo 
per un numero di punti N sufficientemente alto. 

Il seguente programma applica appunto questo criterio 


10 

REM 

COPYRIGHT IN BASIC 


1 cl 

REM 

VIA SEZZE 22 LATINA 


14 

REM 

TEL. 487631 


1 S 

POKE 

[53280,10 : P0KE532813 


20 

CLR : 

: PRI NT "LSI" 


ti. 

PRINTTAB<11>"INTEGRALI DEFINITI“ 


38 

FORT 

[—11040 : PRI NT "Si," : NEXT 


40 

PRINT"SSHaaUESTO PROGRAMMA CALCOLA L. 

'INTEGRALE 

50 

PRINT"DEFINITO DI UNA FUNZIONE CON 

IL METODO" 

60 

PRINT"DI MONTECARLO." 


70 

PRIE 

JT"a BATTI LA FUNZIONE s" 



tee input " Mutal i' = ";V$ 

110 PR1 NT " "Muta i 0000 DEFFNV<X>■“V* 

120 FRI NT "RUM 50" 

125 PRINT"a" 

130 POKE198,3 :FORK=0TO2:POKE631+K,13:NEXT 

148 END 

150 POKE198,0 

160 F'RINT "30K - ORA FISSA GLI ESTREMI DI INTEGRA-" 

170 PRINT"21OHE : " 

188 INPUT "SSI. IMI TE INFERIORE X - " sA 

190 input*' aMNi re superiore, x * “;B 

200 PRINT"SEISJOK - ORA DANNI L'ALTEZZA DEL RETTANGOLO" 
210 PRINT"<POGGIATO SULL'ASSE X> CHE CONTIENE LA" 

220 PRINT"FUNZIONE NELL'INTERVALLO FRA"A 

230 FRINT"E"B 

240 INPUT"3ÈB9ALTEZZA = " ,:H 

250 INPUT"MPER QUANTI PUNTI DEVO PROVARE";N 

1000 REM CALCOLO 

101G J=0:GOSUB1 0000 

1020 FORK=1TON 

1030 X= <B-A>*RND <TI>+A 

1040 V=H*RND<TI - } 

1050 IFV<=FNV<X>THENJ-J+1 
1060 NEXT 

1070 S=<B-A>*H*J/N 

1500 PRINT"aiL VALORE APPROSSIMATO DELL'AREA E' «" 
1510 PR INTTAB 10 i 1 " SISDÉE5 = "S 
160© PRINT "SSJv'UOI CAMBIARE N ?" : 
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1S10 GETR.* : I FR*= " '■ THEN1610 
1615 PRINTR* 

1620 IFR#="S"THENINPUT"Hffl N = ";H :GQTO1000 

1630 PRINT"SJVUOI CAMBIARE FUNZIONE ?" ; 

1640 GETR*: IFR$= ""THEN1640 
1645 PRINTR* 

1650 IFR$="S"THEN10 
1660 PRINfaBOK - CIRO!!" 

1670 END 

10000 DEFFNV<X>=SIN <X> *COSCX > 

10010 RETURN 


Per semplicità abbiamo considerato il rettangolo sempre poggiato 
sull’asse X, e ciò impedisce il calcolo di aree negative: lasciamo al lettore 
la facoltà di completare il programma prevedendo una quota variabile 
anche per la base inferiore del rettangolo. 

Vi stupirete nel constatare con quanta rapidità otterrete risultati precisi 
anche con un numero N di punti piuttosto limitato. Attenzione però a 
scegliere oculatamente l’altezza del rettangolo perché se l’area incognita 
non è completamente contenuta nel rettangolo, il risultato sarà errato 
ma non p*r colpa del metodo di Montecarlo. 



_ CAPITOLO OTTAVO 

Ancora fisica 


ANALISI DI FOURIER 


Si abbia una funzione del tipo 

y = a sen x + b cos x 

Vogliamo dimostrare che essa corrisponde ad una sinusoide.' 
Poniamo 


b = Q sen t? * * 

a = Q cos t? 

dove Q e d corrispondono ad opportuni valori numerici che possono es¬ 
sere calcolati nel modo seguente. 

Dividendo membro a membro le (**), si ottiene 

b = tg o 

a 


cioè 


Dove x ed y sono variabili, mentre a e b sono costanti. 
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d = arctg — 
a 

Invece elevando al quadrato le (**) e sommando membro a membro, si 
ottiene 


b 2 = q 2 sen 2 d 
a 2 = q 2 cos 2 d 

a 2 + b 2 = q 2 (sen 2 i? + cos 2 i?) 


cioè 


Q = V cflb 2 

Dopo aver calcolato d e g, sostituiamo le (**) nella (*). 

y = q cost?senx+g sen d cos x 
y = e (sen x cosi9 + cosx sen i?) 
y = q sen (x+ó) 

dove 0 e q hanno i valori prima calcolati. Quest'ultima funzione rappre¬ 
senta chiaramente un sinusoide con ampiezza massima q e sfasamento d. 



Figura 21 
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Essa è corrispondente al moto armonico generato dalla proiezione sul 
diametro verticale di un punto P che si muove con moto circolare uni¬ 
forme su una circonferenza di raggio q con angolo iniziale d. 



Figura 22 


Dopo questo preambolo teorico, possiamo affermare che ogni funzione 
del tipo 


y = a sen x + b cos x 

corrisponde ad una sinusoide (detta anche armonica perché deriva dal 
moto armonico), con 

angolo di fase = d = artg — 

a _ 

ampiezza armonica = e = y/ a 2 + b 2 
componente seno = a 
componente coseno = b 

Ebbene, Fourier dimostrò che una qualsiasi funzione y = f(x) periodica 
o aperiodica (in questo caso possiamo immaginare che il periodo sia in¬ 
finito), può sempre essere scomposta nella seguente serie trigonometrica 

f(x) = a 0 a, sen x+b, cos x + 

+ </2 sen 2x + bi cos 2x + 

+ a 3 sen 3x + b 3 cos 3x + 


+ a„ sen nx+bn cos nx 
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cioè in un certo numero di armoniche: infatti ogni riga corrisponde ad 
una particolare sinusoide con opportuno angolo di fase, opportuna am¬ 
piezza e frequenze multiple fra loro. 

In altre parole una generica funzione y = f(x) può sempre essere scom¬ 
posta in una serie di opportune sinusoidi che, sommate fra loro, restitui¬ 
scono la funzione iniziale. 

Se essa ha una forma piuttosto complicata, sarà necessario un numero 
di armoniche (o sinusoidi) via via più alto. 

Questo programma effettua appunto questo lavoro di scomposizione e 
fornisce le caratteristiche di ciascuna armonica. 


10 POKE532S0,10 : P0KE532S1,3 
20 CLR:PRINT" □B" 

25 OG=10:PW=?0 

30 PRINTTRB<11> "ANALISI 01 F0URIER3" 

40 PRINTsFORK=lTO40:PRINT ,, SW'sNEXTK 

50 PRINT"MÌE STRBILISCI IL NUMERO DI PUNTI CON I" 

60 PRINT "OLIRLI SARA'COSTITUITA Lfi CURVR IN ESRME" 

70 INPUT"aOURNTI PUNTI <11-254>";N0 
80 IFNO<11ORNO>255THEN10 
90 01MWV<NO >, HB C NO> 

100 PRINT"SDK - 03RR SCEGLI FRR LE SEGUENTI OPZIONI3“ 
170 PR I NT " SJ0--ONDR CON CRRRTTER ISTI CHE SCELTE OR TE" 
180 PRINT"1-SINUSOIDE" 

190 PRINT"2-ONDfi QURDRR" 

200 PRINT"3—ONDR TRIRNGOLRRE" 

210 PRINT"4-ONOfl FRRSTRGLIRTA" 

220 PRIHT"5-SINUSOIDE TOSRTfì" 

250 INPUT" aOaURLE SCEGLI“;OP 
260 IFOPO0THEH290 
270 GOSIJB1000 
280 GOTO330 

290 IFOP>0RNDOP<6THEN320 

300 PRINT"JflSCELTA NON PREVISTA.RIPROVA" 

310 GOTO170 

320 GN OP GOSUB1100,1200,1300,1400,1500 

330 INPUT"SVUOI IL GRAFICO";VT 

340 IFLEFT $( V$,1> = "S"THENGOSUB3000 

370 PR=0 

420 P=INT < NO/DG > 

430 FORI=1TOP 

440 0X=2*it/N0 

45© CS=0 

460 SS=0 

480 FORJ=1TONO 

490 TM=I#J*DX 

500 CS=CS+WV ■; J > *COS < TM > 

510 SS=SS+WV < J>*S IN C TM > 

520 NEXTJ 

540 AN=2*CS/N0 

560 BN=2*SS/N0 

580 HR=SQR< C RN*RN > + <BN*BN> > 

585 HB<I>=HR 
600 PR=RTN < RN/BN > 

610 PRINT" SfflARMONICR NUMERO» ";I 
620 PRINT"HCOMP.COSENO» ";RN 
625 PRINT"aC0MP.SEN0= ";BN 
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63@ PRINT" Jfit'IP IEZZ A ARMONI Cfl= " HA 
640 PRINT"SANO. DI FASE<IN RAD.>= ";PA 
650 PRINT 
665 NEXTI 
670 FO=l 

680 INPUT "ST/UOI CISTOGRAMMA DELLE ARMONICHE" ;V* 
690 IFLEFT* <V*,1> = "S"THENGOSUB6000 
720 I FFG=0THENPR I NT " SC>K - CIAO!" 

725 END 
730 FG=G 

740 INPUT"Bv‘UOI IL LOG. DELLE AMPIEZZE" ;V* 

750 IFLEFTT < V*1 > <> " S " THEHPRI NT " 33K - CIAO!" 

760 END 

770 HE < I > =LOG < HB < I > > 

780 NEXTI 
790 GOTO690 

1000 I NF'UT " SMOME DELL ' ONDA " ; HDt 

1020 PRINT"SCI SONO ";NO;" PUNTI IN ASCISSA." 

1030 FORI=1TONO 

1040 PRINT"BOIGlTALIZZA L'ORDINATA PER CIASCUN" 

1041 PRINT“PUNTO IN ASCISSA." 

1045 FORI=lTONO 

1050 PRINT"SIDROINATA DEL" I "• PUNTO* " f : INPUTWV< I > 
1060 NEXTI 
1070 PRINT"SDK" 

108© RETURN 
1100 HD*="SINUSOIDE" 

1120 FORI=1TONO 
1130 WV•; I > =SINCI,'N0*2*ir >* 100 
1148 NEXTI 
1158 RETURN 

1208 HD*="ONDA QUADRA" 

1220 TM=N0/2 
1230 FORI=lTOTM 
1240 WV<I>=-100 
1250 NEXTI 
1260 FORI=TMTONO 
1270 WV<I>=+100 
1280 NEXTI 
1290 RETURN 

1300 HD*="GNDA TRIANGOLARE" 

1310 TM=0 

1315 F0RI=1T0INT(N0#.25> 

1320 WV<I>=TM 
1325 TM=TM+10 
1330 NEXTI 

1335 FOR J= ITOI NT (. NO*. 75 > 

1340 WV<J)=TM 
1345 TM=TM-10 
1350 NEXTJ 
1355 FORI=JTONO 
1360 WV<I>=TM 
1365 TM=TM+10 
1370 NEXTI 
1375 RETURN 

1400 HO*="ONDA FRASTAGLIATA" 

1420 TM=-N0*5 
1430 FOR1=1TONO 
1440 WV<I>=TM 
1450 TM=TM+10 
1460 NEXTI 
1470 RETURN 
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1580 GOSUB1100 

1530 FORICITONO 

1540 IFWV < I >85THEHWV < I > =85 

1550 IFWV <I><—85THEHWV<I>=-85 

1560 NEXTI 

1565 HD$="SINUSOIDE TuSflTH" 

1570 RETURN 

3000 F'RINT"SJBjRRFICO DI3 " ;HDT 
3028 GOSUE:4500 

3830 FRINT"a.IM.INFERIORE=";MN 
3040 F'R I NT " SLIM. SUPER I ORE=" ; MX 
3050 FRINT"SII SONO NO;"PUNTI" 
3060 FORI=1T039 
3070 FRINT"4"; 

3080 NEXTI 
3090 FRINT 
3100 FORI = 1 TONO 
3110 FRINT "4" ; 

3128 TW=MX-MN 

3130 SP= I NT < C < WV < I >—MN.» /TW*36 > +0.5 > 
314© IFSP>0THEN3170 
3150 FRINT"*" 

3160 GGTO3180 
3170 PRINTSPC<SP >;"* " 

3130 NEXTI 
3190 RETURN 
4500 MX=WV<1> 

4520 MN=WVC1> 

4530 F0RI=2T0N0 

4540 I FWV < I >>MXTHENMX=WV < I '.> 

4550 IFWV <I><MNTHENMN=WV<I> 

4560 NEXTI 
4570 RETURN 
6000 GOSUB7500 
6020 FORK=1 TOP 

6030 SP= I NT < < < HB C K :> /MX > #38 >+0. 5 > 
6040 FORL=lTOSP 
6050 FRINT"*"; 

6060 NEXTL 
6070 FRINT 
6030 NEXTK 
6090 RETURN 
7500 MX=HB<1) 

7520 F0RK=2T0P 

7530 IFHB<K> >MXTHENMX=HB< K> 

7540 NEXTK 
7550 RETURN 


Il programma non è mio ma è preso dalla rivista Practical computing, e 
purtroppo non conosco il nome dell’autore. Io l’ho solo tradotto e leg¬ 
germente modificato. 

Esso permette l’analisi di una funzione con caratteristiche scelte 
dall’operatore (ed in questo caso occorrerà fornire al Commodore 64 le 
ordinate dei punti della funzione da studiare), oppure di alcune funzioni 
caratteristiche: 
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onda sinusoidale 
onda quadra 
onda triangolare 
onda frastagliata 
sinusoide tosata 

In ogni caso, a richiesta, il Commodore 64 fornirà anche il grafico della 
funzione in studio, l'istogramma delle ampiezze e quello del logaritmo 
delle ampiezze. 


RESISTENZE E CAPACITÀ 


10 REM COPYRIGHT IN BASIC 
12 REM VIfi SEZZE 22 LATINA 
14 REM TEL. 487631 
16 POKE53280.. 10 : POPE03231,3 
20 CLR SPRINT "IT" 

38 PRINTTAB<SO"RESISTENZE E CAPACITA'" 

40 PRINTTAB<S»"HIN SERIE E IN PARALLEL03" 

50 GOSUB11000 

68 PRINT"HSPUOI TRATTARE ARSESISTENZE 0 AC3APACITA'" 

70 PRINT"SQUALE SCEGLI ?" 

80 GOSUB10000 

90 IFA$="R"THENGOSUB12000:GOTO120 
100 IF A$="C"THENGOSUB13080 :GOTO120 
110 GOT 080 
120 GOSUB11000 

125 OP$="CAPACITA'":IFA$="R"THENOP$="RESISTENZE" 

130 PRINT"fflOK— ORA DIMMI : CONOSCI TUTTE E TRE LE" 

140 FRINTOP*"?" 

150 GOSUB10080 

160 IFA$="S"THEN1G08 

170 PRINT"SJ4LL0RA QUALE CONOSCI ?" 

180 PRINT"BATTI ffll , 2 O 33> " 

190 GOSUB10008 

200 R1=A:IFR1<1ORR1>3THEN190 
220 PRINT"SE POI ?" 

230 GOSUB10000 

240 R2=A : IFR2<1ORR2>3THEN230 
258 GOSUB14000 

260 REM-SMISTAMENTO PER IL CALCOLO 

278 IFLEFT*<OP*,1>="R"ANO<R1=30RR2=3>THENGOSUB15080sGOTO2000 
280 IFLEFTT<OPT,1> = "R"THENGOSUB16000 :GOT02000 

290 IFLEFTiCOP*,1>="C"ANDCRI-30RR2-3>THENGOSUB17008:GOTO2080 
300 I FLETTI- OPF, 1 = "C"THENGOSUB 18008 :GOTO2800 
1800 REM-CALCOLO RETE CON 3 ELEMENTI 
1005 GOSUB14008 

1810 IFLEFT*<OP*,1>="C"THEN1580 

1028 PRIMI"DAMMI 1 VALORI DELLE RESISTENZE IN OHM" 

1030 INPUT"£R1=";X1 
1040 I NPUT " SJ?2=" .! X2 
1850 INPUT" m 3=";X3 
1060 XX=X1*X2X<X1+X2> +X3 
1078 GOTO2000 

1508 PRINT"<SE LE CAPACITA' SONO ESPRESSE IN MI-" 
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1510 PRINT"CROFARAD,MOLTIPLICO PER 1.000.000>" 
1520 PRINT "SOAMMI I VALORI DELLE CAPACITA'’ 

1530 INPUT"SC1=";X1 

1540 INPUT"C2=".?X2 

1550 INPUT"C3=";X3 

1560 XX= < X1+X2>#X3/<X1+X2+X3> 

1570 GOTO20O0 

2000 REM-STAMPA RISULTATI 

2O10 GOSUE1400O 

2020 PRINT"OK - LE "LIFT" EQUIVALGONO AD" 

2030 PRINT"UN UNICO ELEMENTO AVENTE 
2040 IFLEFTT < OPT1 > = " C " THEN2070 
2050 PR INTTAB < 10 ) " SF= “ XX " OHM " 

2060 GOTO2100 
2070 VV—XX*1000000 

2080 PRINTTA6L8>"a:="XX"MICROFARAD" 

209O PRINT"SEPPURE C="VV"PICOFARAD" 

2100 PRINT"SVUOI PROVARE ANCORA ?" 

2110 GOSUB10000 
2120 IFA$="S"THEN10 
2130 F'RINT"3QK - CIAO!" 

2140 END 
1 0080 
10010 
1 0020 
1 1000 
1 1010 
1 2000 
12005 
12010 
12020 
12030 
12040 
12050 
12060 
12070 
12080 
13000 
13005 
13010 
13020 
13030 
13040 
13050 
13060 
13070 
13080 
13090 
13100 
1 4000 
14010 
14020 


1_o_ 


REM-ATTESA E INGRESSO 

GETAT:IFA$=""THEN10010 

A=VAL<A$>:RETURN 

REM-BARRA ORIZZONTALE 

FGRK=1TO40:PRINT"&h3"; :NEXTK:RETURN 

REM-QUADRO RESISTENZE 

PRINT"3" 

PRINTTAB <10 >"R1" 

PR I NT " S __" SPC < 9 > " R3 " 

FRI NT" | 1" 

PRINT"A CH 
PRINT" I 

PRI NT" - 

PRINTTABC10>"S?2" 

RETURN 

REM-QUADRO CAPACITA' 

PRINT"3" 

PRINTTAB <11>"C1" 

PRINTTAB C11>" | 

PRINTTAB<7> 

PRINTTABC7> 

FRINT" A O 
PRINTTABO 
PRINTTABC7)" >■ 

PRINTTABC11> 

PRINTTAB<11>"C2" 

RETURN 

REM-CANCELLAZIONE 
FORK=ITO10 SPRINT" 


_O C" 
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14030 NEXTK 

14040 PR I NT " agHaWuftlBMBtt] " 

14050 RETURN 

15000 REM-RES.IN SERIE 

15010 PRINT"DI QUANTI OHM E' LA PRIMA RESISTENZA 
15020 I NPUT " gf?=" sXl 
15030 PRINT"SE L'ALTRA ?" 

1 5048 1 HI- U T"SR~" ? X2 
15050 XX=X1+X2 
15060 RETURN 
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16000 REM—RES.IN PARALLELO 

16010 FRINT"DI QUANTI OHM E' LA PRIMA RESISTENZA ?" 
16020 IHPUT " SJ?= " ; X1 
16030 PRINT"SE L'ALTRA ?" 

16040 INPUT "HR= " ;X2 
16050 ftA—X 1 A : i 2 r"' t'\ 1 +X2 .■* 

16060 RETURN 

17000 REM-CAP.IN SERIE 

17010 PRINT"<SE LE CAPACITA' SONO ESPRESSE IN MI-" 

17O20 PF; I NT " CROFARAD , MOLTIPLICA PER 1.000.000 ) " 
17030 PRINT"SITI QUANTI PICOFARAD E' LA PRIMA CAPA-" 
17040 I NPUT " CITA •' " ; X1 
17050 INPUT"SE L'ALTRA";X2 
17060 XX®X1#X2/<X1+X2> 

17070 RETURN 

18000 REM-CAP.IN PARALLELO 

18O10 PRINT"<SE LE CAPACITA' SONO ESPRESSE IN MI-" 

18020 PRINT"CROFARAD,MOLTIPLICA PER 1.000.000>" 

18830 PRINT"SDÌ QUANTI PICOFARAD E' LA PRIMA CAPA-" 

18040 I NPUT " C I T A ' *' ; X1 

18050 INPUT"HE L'ALTRA";X2 

18060 XX=X1+X2 

18078 RETURN 


È un semplice programmino che permette di calcolare la resistenza o la 
capacità di una rete di componenti in serie, in parallelo, o in disposizio¬ 
ne combinata. 

Esso è fornito anche di una parte grafica che visualizza sullo schermo la 
rete di resistenze o di condensatori. Le subroutine 10000 e 11000, al so¬ 
lito, servono per fermare il programma e per l’ingresso dei dati, e per la 
barra orizzontale. 

La 12000 traccia il quadro delle resistenze nella metà superiore del vi¬ 
deo, e la 13000 il qudro delle capacità. 

La 14000 serve invece a cancellare la metà inferiore dello schermo: infat¬ 
ti il “dialogo” fra C-64 e operatore avviene solo nella parte inferiore del 
video, mentre in quella superiore rimane impresso lo schema con i com¬ 
ponenti. 

Le èsubroutine 15000, 16000, 17000, 18000 servono all’introduzione dei 
dati e al calcolo del risultato, nei casi in cui i componenti siano solo 
due. 

Se invece i componenti sono tre, il calcolo avviene alle linee 1000 per le 
resistenze e 1500 per le capacità. 

Infine, nelle linee 2000 e seguenti, si ha la stampa dei risultati e la richie¬ 
sta di continuazione. 


3 CLR:PRIHT"aa" 

4 PQKE53280,10:PGKE532S1,3 

5 PRINT" INTRODUCENDO LE COORDINATE DI UN CERTO" 
10 PRINT"NUMERO DI PUNTI,QUESTO PROGRAMMA DETER-" 
20 PRINT"MINA I COEFFICIENTI DEL POLINOMIO <OI" 
30 PRINT"GRADO SCELTO DALL'OPERATORE>,CHE MEGLIO" 
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40 PRINT"APPROSSIMO LO SPEZZATO CHE UNISCE I" 

45 PEINT"PUNTI INTRODOTTI■" 

100 INPUT"HHBEJ3RODO MAX DEL POLIN. DO CALCOLARE";D 
110 IFD<1THEN100 

120 INPUT"SHUMERO PUNTI DISPOHIBILI";N 
130 IFACITHEN120 
135 IF NCD THEN RUN 

140 DIM A i N,N> ,B<N> ,C<N> ,X<N> , V<N > , E<N> ,S<N> 

150 FOE 1=1 TO N 

1 60 PR1 NT " aflC-OORD 1NA i E "I"ir l 'Ut i I O" 

170 INPUT"SSSf'l =";X<I) 

175 INPUT"»! 1 = " :V< I > 

ISO NEXT I 
185 FRINT"3" 

190 FOR D=D TO 1 STEP-1:V1=0 
200 FOR J=1 TO N:FOR 1=1 TO D 
210 B<I>=B<I>+V<J>#X<J>TI 
220 FOR K=1 TO D 
230 A<I,K>=A<I,K>+X< J>t<I+K> 

240 NEXT K 

250 S(I> =S<I>+X< J >1I 

260 NEXT I 

270 V1=Y1+V<J> 

280 NEXT J 

290 FOR 1=1 TO D:FOR J=1 TO D 
300 A C I,J > =A <I,J >-S ( I>*S <J >/N 
310 NEXT J 

320 B <I>=B <I>-V1 *S<I >/N 

330 NEXT I 

340 FOR K=1 TO D 

350 B=K:A1=0 

360 FOR L=K TO D 

370 A2=ABS<A <L,K>> 

380 IF A2>A1 THEN A1=R2:R=L 
390 NEXT L. 

400 IF 01=0 THEN PRINT"JÈHESSUN COEFF. NELLA NATE. A" :END 
418 IF R=K THEN 460 
420 FOR J=K TO 0 

430 X 1=A<R,J> sA<R, J> =A<K,J) :A<K,J=X 1 
440 NEXT J 

450 X1 =B (. R> tB<R>=B<K> sB<K>=*Xt 
460 FOR I=K TO D 
470 M=At:i.,K> 

480 FOR J=K TO D 

490 IF I=K THEN A<I^J>=A<I,J>/M 

500 IF IOK THEN A< I.. J> =A< I , J>-11*0<KJ> 

510 NEXT J 

520 IF I =K THEN B(I>«B(IVM 

530 IF IOK THEN B<I >=B<I >-M#B<K> 

540 NEXT I.K 
550 E D j =B < D > 

560 FOR K=1 TO D-l 
570 I=D-K:S1=0 
588 FOR J=1 TO D 
590 S1=S1+A <I,J)*E <J > 

600 NEXT ,T 

610 E<I>=BCI>—SI 

620 NEXT K 

630 PRINT"SHF'OLINON10 DI GRADO"D; 

635 PRINT"B I COEFF. SONO 
640 S1=0:FOR 1=1 TO D 
650 S1=S1+E CI> *S <I>/N 
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660 NEXT I 

665 HN=V1/N-S1:GQSU61000 

670 PRINT'^Cej ="NH"/"DD" <TERMINE NOTO)'' 

630 FOR P=1 TO D 

685 NN=E<P>:GOSUB1000 

690 F'R I NT " Fi ( "P " > = " NH " / " DD 

700 NEXT F' 

710 FOR 1 = 1 TO N 5FOR J=1 TO N 
720 fi <I, J > =0 :NEXT J 
730 E: < I > =0 sS<I > =0 : E < I > =0 
740 NEXT I 

745 FOR H=1 TO 40SPRINT "BUS" t sNEXT 

746 PRI NT :PRINTTfiB C 12> " il'.:PREM I UN TOSTO> “ 
74 7 GE I QQT : i I CJG*■ =. " " 7 NEH 74 7 

750 NEXI D 
800 END 

1000 REM SUBROUTINE TRfiSF. IN ERBE.DECIM. 
1005 U=0 

1010 NN= I N'1 < HN* 100+. 5 > /100 
1020 14=14+1 :TT=NN*W 

1030 IF TT-1 NT O TX. 000001 THEH 1070 

1040 IF W>100 THEN 1060 

1050 GOTO1020 

1060 DD=1:GOTO 1030 

1070 NN=NN*I4:DD=W 

1080 RETURN 


POLINOMIO APPROSSIMANTE 


Concludiamo il capitolo con un programma (da noi semplicemente tra¬ 
dotto ed adattato, di autore sconosciuto) che permette di determinare i 
coefficienti del polinomio che meglio approssima una serie di punti di 
un grafico. 

Si abbiano N punti riportati su un piano cartesiano: se questi sono alli¬ 
neati essi apparterranno a una retta di equazione 

y - ax + b 

Se invece sono disposti su una linea leggermente curva, si può presumere 
con buona approssimazione che essi appartengano ad una parabola di 
equazione 


y = ax 2 + bx + c 

Se la loro disposizione è più complessa, essi si troveranno approssimati¬ 
vamente su curve corrispondenti a polinomi di grado via via superiore. 
Lo scopo del programma è quello di determinare i coefficienti del poli¬ 
nomio che meglio raffigura l’andamento dei punti proposti. Dovrete in¬ 
trodurre le coordinate dei punti disponibili, e fissare il grado del polino¬ 
mio di cui desiderate i coefficienti. Il calcolatore vi fornirà i coefficienti 
richiesti e quelli dei polinomi di grado inferiore. 
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Per finire 


Crediamo di fare cosa utile al lettore proponendo due programmi che 
permettono di elaborare test da sottoporre agli studenti: il primo funzio¬ 
na con l’impiego del floppy ed il secondo con il registratore. 

Con un po’ di pazienza è possibile compilare un vasto assortimento di 
questionari che permetteranno accertamenti più rapidi da parte dell’inse¬ 
gnante (tenendo però sempre presenti i limiti caratteristici di validità le¬ 
gati a questo tipo di indagine). 

Dovrete fissare il numero di domande, il titolo del questionario, fornire 
tre risposte di cui una sola esatta, e registrare (su nastro o disco) il file 
con i dati. 

Se possedete una stampante esiste anche l’opzione che vi permette di 
stampare tutto il questionario. 


180 REM COPYRIGHT IH BASIC 
102 REM VIA SEZ2IE 22 LATINA 
104 REM TEL. 487631 
106 POKE53280..10:P0KE53281 ,3 
110 CLR SPRINT "ria" 

126 PRINTTAB<14 >"QUESTIOHAR10" 

130 Q*="&d3":GO3UB1230 
140 PRINT"SPUOI 

ISO PRINT"B 1-REGISTRARE SU DISCO UN NUOVO" 

160 PRINT" QUESTIOHARI0." 

170 PRINT"a 2—CARICARE UH QUESTIONARIO GIÀ'" 
180 PRINT" PRONTO SUL DISCO." 

190 FRINT"S 3-RISPONDERE ALLE DOMANDE DI UH" 
200 PRINT" QUESTIONARIO GIÀ' CARICATO." 
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210 PRINT"SI 4—STAMPARE TUTTO IL QUESTIONARIO." 

220 GOSUB1230 :PRINT 

230 PRINTTAB<13>"flC0Sfi SCEGLI ?S" 

240 GOSUB1250 

250 1FA<49QRfi>52THEN240 

26© ONH—48GOTO270, 730,880,1100 

270 REM :REOISTRA21ONE 

280 INPUT"SOR-QUANTE DOMANDE SONO IN TUTTO";N 
290 DIME»<N),R*<3,N),RR*<N> 

300 FOR J=1TON:PRINT"JCNON BATTERE I SIMBOLI fl M CHR*<34>" , : SNEL" 
310 PRINT"CORSO DELLA DOMANDA 0 DELLA RISPOSTA)" 

320 PRINT"B3IA DOMANDA CHE RISPOSTE DEVONO AVERE" 

330 PRINT"UNA LUNGHEZZA MASSIMA DI 2 RIGHE.":GOSUB1230 
340 PRINT"SHOOMAIIDA N.'M"3" 

350 INPU I ",!!P " :04J 
360 GOSUB1230 

370 FORV= 1T03 : PR I NT " Sm I SPOSTA " CHR* < 64+ V ) " »- " ; : I NPUTR* < V » -J > : NEXT 
3S0 GOSUB1230 

390 PRIHT"BQUAL "E r LA RISPOSTA GIUSTA ? '-A, 8 0 C>" 

400 GOSUB1250 

410 IFA<65QRA>6?THEN400 

420 RR* CJ > =R*:NEXT 

430 PRINT"SDK-VUOI RIVEDERE DOMANDE E RISPOSTE" 

440 PRINT"PER CONTROLLARLE ?" 

450 GOSUB1250 

460 IFASO " S " THEN650 

470 FOR J= 1 TON : PR I NT " .TT iOMANDA N. " J " S" 

480 PRINT :PRINTD*CJ j :GOSUB1230 

490 FQRY=1TQ3:PRINT" bMRISPOSTA "CHR*C64+V) "3 = “R*<V,J>:HEXT 
500 GOSUB1230 :PRINT"fflLA RISPOSTA GIUSTA E ' ffl"RR*J)"3" 

510 GOSUB1230:PRINT"»0K ?" 

520 GOSUB1250 

530 IFA* O"N"THEN640 

540 PRINT"SVUOI MODIFICARE LA CDS90MANDA 0 LE" 

550 PRINT"■ESISPOSTE ?" 

560 GOSUB1250 

570 IF A*=" D " THEND* < J > = " " : INPUT "SDGMRNGR =";D*<J) :G0T0640 
580 FORV= 1T03 : R* < V , J ) = " " : NEXT 

590 FORY=1T03 :PRINT"HRISPOSTA "CHR* < 64+V>:INPUT" 1B= ";R*<V,J>:NEXT 
600 PRINT"MQUAL 'E' LA RISPOSTA GIUSTA ? <A,B O C>" 

610 GOSUB1250 

620 IFA<65ORA>67THEH610 

630 RR* <J)=A* 

640 NEXT sGOTO430 

650 PRINT"3DRA IL QUESTIONARIO E' COMPLETATO." 

660 INPUT"MCOME VUOI CHIAMARLO";T* 

665 PRINT"SDK - INSERISCI UN DISCO NEL FLOPPY, E" 

667 PRINT"PREMI UH TASTO":GOSUB1260 
670 OPEN15,8,15:GOSUB1300 
675 CR*=CHR* <13) 

677 PRINT"MBSTO REGISTRANDO IL QUESTIONARIO SUL DISCOS" 

678 0PEN2,8,2,T*+", S , W ":GOSUB1300 

679 PRINT#2,T*CR*:GOSUB1300 

680 FORJ=1TON:PRINT#2,D*<J> CR*:GOSUB1300 :NEXT 

690 FORJ=1TON:FORY=1T03:PRINT#2,R*<V,J>CR*:GOSUB1300 :NEXT:NEXT 
70O FORJ=1TOH :PRINT#2,RR*<J>CR*:GOSUB1300 :NEXT 
710 CL0SE2 

720 PRINT"3":GOTO110 
730 REM : CARICAMENTO 

740 PRINT"31ETTI IL DISCO CON I QUIZ NEL FLOPPY, t" 

750 PRINT"PREMI UN TASTO":GOSUB1250 

760 PRINT"gJQUAL'E■' IL NOME DEL QUESTIONARIO CHE" 
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770 INPUT"VUOI CARICARE";T* 

7S0 INPUT"HQURNTI QUIZ CONTIENE".:N 
790 DIMD* <N> , R*<3,N>,RR*<N> 

300 OPEN15,8,15: GOSUB1300 

801 0PEN2,8,2,T*+",S,R":GOSUB1300 

305 PRINT"HB3TO CERCANDO IL QUESTIONARIO NEL DISCOS" 

306 INPUT#2,T*:GOSUB1300 
310 PRINT"SHO TROVATO : "T* 

328 FRINT"SE LO STO CARICANDO." 

830 FORK=1TO3000:NEXT 

340 FORJ=1TON:INPUT#2,D* C J >:GOSUB1300 :NEXT 

350 FOR J = 1TON : FORV= 1T03 :1 HPUT#2 , Ri- < V , J > : GOSUB 1300 : NEXT : NEXT 

860 FORJ=1TON: INPUT#2,RR*<J>:GOSUB1300 :NEXT 

370 CL0SE2:PRINT"3":GOTO120 

830 REMiSVOLGIMENTO QUIZ 

390 T=0:IFN=0THEN1120 

900 FOR-T= 1 TON : PR I NT " □fflOOMANDA N. " J " 3" 

910 PRINT" SB9" D* < J > : PR I NT : GOSUB 1 230 

920 FORV=1T03:PPINT :PRINT"ffl"CHR*<V+64>" : 3"R*CV,J>sNEXT 

930 PRINT :GOSUB1230 

940 PRINT"38QUAL'E' LA RISPOSTA GIUSTA ? "; 

950 GOSUB125©: IFA<65ORA>67THEN950 
960 PRINTA* 

970 I FA*=RR* < J > THENFF--1 

975 IF FF=1THEHPRINTTAB C 10>" Sfl GIUSTO ! 3":FORK=1TO30O0:NEXT:FF=0:GOTO1000 
980 PRINTTABCI8> M aBSBAGLIATO!3"SPRINT"Sia.A RISPOSTA GIUSTA ERA : "RR*<J> 
990 T=T+1 :FORK=1TO3000:NEXT 
1000 NEXT 

1010 PRINT"SFINE DEL QUESTIONAR 103" 

1020 PRINT"HSHAI RISPOSTO CORRETTAMENTE A "N-T 
1030 PRINT"DOMANDE SU "N"." 

1040 V*INT<<<N-T>#10XN+.1>*10>/10 
1050 PRINT"SISMIL TUO VOTO E' = "VV103" 

1060 PR I NT : Q*= " 85-a " : GOSUB 1230 

1870 PRINT"HSPEVG RICOMINCIARE IL TEST ?":GOSUB1250 
1030 IFA*="S"THENPRINT"3":GOTO890 
1090 PRINT"30K - CIAO ! !":EHD 
1100 REM:STAMPA • 

1110 IFNO0THEN1140 

1120 PRINT"3":PRINTTAB<8>" WiMM ON HO QUIZ IN MEMORIA ! ! 3" 

1130 FORK=1TO2000:NEXT:PRINT"3":GOTO110 
1140 0PEN4,4 :PRINT#4,SPC< 28 >"QUESTIONAR10" 

1150 F0RK=1T04:PRINT#4:NEXT :PRINT#4,SPC<10>"TITOLO = "T$ 

1160 FORK=1T04:PRINT#4:NEXT 

1170 F0RJ=1TQN:PRINT#4,CHR$t: 18>"DOMANDA N. "J" = "CHR*< 146>D*<J> 

1180 PRINT#4 :F0RV=1 T03 :PRIHT#4 ,CHRT•; V+64 > "= " ;RTCV, :PRINT#4 :NEXT 
1190 PRINT#4:PRINT#4,"RISPOSTA GIUSTA = »;RR$<J> 

1200 PR I HT#4 , "-" : NEXT 

1210 PRINT#4:CL0SE4 

1220 PRINT"3":GOTO110 

1238 REM :BARRA ORIZZONTALE 

1240 FORK=1TQ40:PRINTQ$::NEXT:RETURN 

1250 REM : INGRESSO GET 

1260 GETA* : IFA*=""THEN1260 

1270 A=ASC < A$ : RETURN 

1300 REM:TEST ERRORI SU FLOPPY 

1310 INPUT#15,EN$,EMT,ET*,ES* 

1320 IFEN*="@0"THENRETURN 

1330 PRINT"SBMERRORE SU DISCO :" 

1340 PRINT"HH"EM*,ENf,ET*,ES* 

1350 CL0SE2 
READY. 
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100 REM COPYRIGHT IN BASIC 
102 REM VIA SE2ZE 22 LATINA 
104 REM TEL. 487631 
106 PQKE53280,16:P0KE53281,3 
110 CLR«FRINÌ"ja" 

120 PRIHTTAB<14 >"QUEST IOHAR10" 

130 QT=" B-3 ";GOSUB1230 
148 PR I NT " BF'UO I : M 

150 PRINT"H 1-REGISTRARE SU NASTRO UN NUOVO" 

168 PRINT" QUESTIONARIO." 

170 PRINT"SI 2-CARICORE UN QUESTIONARIO GIÀ’" 

180 PRINT" PRONTO SU NASTRO." 

198 PRINT"3 3-RISPOHDERE ALLE DOMANDE DI UN" 

200 PRINT" QUESTIONARIO GIÀ' CARICATO." 

21© PRINT"a 4—STAMPARE TUTTO IL QUESTIONARIO." 

220 GOSUB1230 :PRINT 

230 PRINTTABC13>"«COSA SCEGLI ?3" 

240 GOSUB1250 

250 IFA<49ORA>52THEN240 

260 ONO-48GOTO270,730,880,1100 

270 REM :REGISTRAZIONE 

280 INPUT"30K-QUANTE DOMANDE SONO IN TUTTO";H 
290 DIMD* < N > , R* < 3 , N > , RR$ < H > 

300 FORJ=i TON : PR I NT" NON BATTERE I SIMBOLI 0"CHRT 034>" , : 
310 PRINT"CORSO DELLA DOMANDA 0 DELLA RISPOSTA)" 

320 PRINT"BISIA DOMANDA CHE RISPOSTE DEVONO AVERE" 

330 PRINT"UNA LUNGHEZZA MASSIMA DI 2 RIGHE.GOSUB1230 
340 PRINT"gfflDOMANDA N."J"3" 

350 INPUT " BJ= " ; DT ■; ..T :> 

360 GOSUB1230 

370 FORV= 1T03 sPR I NT " S£F' I SPOSTA " CHR* < 64+V ) " 3= " } : INPUTR* < V , -J > 
380 GOSUB1230 

390 PRINT"SJQURL 'E' LA RISPOSTA GIUSTA ? <A,B 0 C>" 

400 GOSUB1250 

410 IFA<65ORA>67THEH400 

420 RRT< J >—A-t- :NEXT 

430 PRINT"30K—VUOI RIVEDERE DOMANDE E RISPOSTE" 

440 PRINT"PER CONTROLLARLE ?" 

450 GOSUB1250 

460 I FATO " S " THEH650 

470 F0RJ=1T0N:PRINT"3HDOMANDA N."J"3" 

480 PRINT :PRINTDT<J>:GOSUB1230 

490 FORV=1T03:PRINT"BUSRISPOSTA "CHRTt64+V)"3 = "R*<V,J>«NEXT 
508 GOSUB1230:PRINT"BLA RISPOSTA GIUSTA E' ffl"RRT<J)"3" 

510 GOSUB1230:PRINT" S3K ?" 

520 GOSUB1250 

530 I FATO " N " THEN640 

540 PRINT"SVUOI MODIFICARE LA SP30MAHDA 0 LE" 

550 PRINT"ORSISPOSTE ?" 

560 GOSUB1250 

570 IFAT="D"THENDT<J> = ""«INPUT"SDOMANDA =";DTCJ)«GOTO640 
580 F0RV=1T03:RT<V,J>=""«NEXT 

590 FORY=1T03:PRINT"HRISPOSTA “CHRTC64+V):INPUT"J9=";RT<V, J>: 
608 PRI NT"BI3UAL 'E ' LA RISPOSTA GIUSTA ? <A..B 0 C> " 

618 GOSUB1250 

620 IFA<650RA>67THEN618 

630 RRT<J>=AT 

640 NEXT«GOTO430 

650 PRINT"j:iRA IL QUESTIONARIO E' COMPLETATO." 

660 INPUT"SCOME VUOI CHIAMARLO";TT 

670 OPEN 1 , 1 , 1 , TT : PR I NT# 1 , N 

680 FORT-1TON;PRINT#1,UT<J>:NEXT 


SIEL " 


«NEXT 


NEXT 
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690 FOR J = 1TOHFORV= 1T03 : PR I NT# 1 , R$ C V , J > : NEXT : NEXT 
700 FORJ=lTONsPRINT#l,RR*<J>sNEXT 
710 CLOSEI 

720 PRINT"J"SGOTO120 
730 REM :CARICRMEHTO 

740 PRIHT"3'1ETTI LA CASSETTA COtl I QUIZ NEL RE-" 

750 PRIHT"GISTRATORE." 

760 PRINT"gJQUAL'E ' IL HOME DEL QUESTIONARIO CHE" 

770 1NPUI“VU0I CRR1 CARE ".sii 

7S0 INPUT"HQURNTI QUIZ CONTIENE";N 

790 DIMO$<N>,R*<3,N>,RR$(N> 

800 OPEN1,1,0,T$ 

81© PRINT" SHO TROVATO : "T# 

820 PRINT"HE STO CARICANDO I QUIZ." 

830 INPUT#1,N 

840 FORJ=1TON: INPUT#1,D* <ì >:NEXT 

850 FOR J = 1 TON : FORV= 1T03:1 NPUT# 1, R$ < VJ > : NEXT : NEXT 

860 FOR J= 1 TON : I NPUT# 1RR J < J > : NEXT 

870 CLOSEI : FRI NT "ZI" : GOTO 120 

880 REM .-SVOLGIMENTO QUIZ 

890 T=0 :1FN=0THEN1120 

900 FORJ= 1 TON iPR I NT " ^DOMANDA N. " J " 3" 

910 PRINT"HS"D*<J>SPRINT:G0SUB1230 

920 F0RV=1T03SPRINTsPRINT"ffl"CHR*>:V+64>" s B'*R*<V,J> sNEXT 
930 PRINT :GOSUB1230 

940 PRINT"SJQUAL'E' LA RISPOSTA GIUSTA ?" 

950 GOSUB1250 :1FA<650RA>67THEN95Q 
960 PRINTAT; 

970 IFA$.-=RR$: < ..T > THENPRINTT AB<10>" ÌKI USTO ! 3" : FORK= 1TO3000 : NEXT : GOTO 1000 
980 PRINTTABC 10>"MBSBHGLIATO ! 3" sPRINT"MS-A RISPOSTA GIUSTA ERA .- "RR*<J> 
990 T=T+1 :FORK=1TO3000sNEXT 
1000 NEXT 

1010 PRINT"3BFINE DEL QUESTIONARIO" 

1020 PRINT" 3MSH RI RISPOSTO CORRETTAMENTE A "N-T 
1030 FRINT"DOMANDE SU "N"." 

1040 V=INT<<<N-T>*10/N+.1>*1O>/10 
1050 PRiNT" :a»a iL tuo voto e' = "W 103 " 

1060 PRINT sGOSUB1230 

1070 FRI NT " IHSPEVQ RICOMINCIARE IL' TEST ?" : GOSUB 1250 

1080 IFR*=" S" THENPRINT "ZI" sGOTO120 

109© PRIHT "30K - CIAO!! ".-END 

1100 REM:STAMPA 

1110 IFNO0THEN1140 

1120 PRINT sPRINTTAB<8> "HHflNON HO QUIZ IN MEMORIA! ! 3" 

1130 FQRK=1TO2000sNEXT:PRINT"3"SCOTO120 
1140 ÙPEN4,4 :PRINT#4,SPC<28}"QUESTIONARIO" 

1150 F0RK=1TG4:PRINT#4sNEXT:PRINT#4,SPC<10?"TITOLO = "T* 

1160 FORK=1T04:PRINT#4 :HEXT 

1170 FORJ=lTON :PRINT#4,CHRS ■; 18> "DOMANDA N. " J" - "CHR$<: 146>DTJ> 

1180 PRINT#4sF0RV=lT03:PRINT#4,CHR*<V+64>"R#<V,J>:PRINT#4sNEXT 
1190 PRINT#4:PR1NT#4,"RISPOSTA GIUSTA = "RR#c;j> 

1200 PR I NT#4, "-•• : HEXT 

1210 PRIHT#4:CL0SE4 

1220 PRINT"3":GOTO120 

1230 REM SBARRA ORIZZONTALE 

1240 FORK=1TO40:PRINTQ*; :HEXTsRETURN 

1250 REM:INGRESSO GET 

1260 GETAF: 1FA$=""THEN1260 

1270 A=ASC<A$> s RETURN 
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Infine, tre programmi di evasione che vi permetteranno di cimentarvi 
con il Commodore 64 nel gioco del bridge (dopo aver giocato una parti¬ 
ta con il morto, vi sarà data la possibilità di giocare la stessa smazzata 
con le carte del calcolatore), nella soluzione di un diagramma di parole 
crociate elaborato casualmente dal computer e nella redazione di una 
dieta alimentare se per caso avete problemi di peso. 


100 

110 

120 

130 

14.0 

150 


REM TRADOTTO E ADATTATO DA IN BASIC S.N.C. 
CLR:PRINT"a»" 

FORK=0TO1 : PQKE53280+K7 : NEXT 

pR i nt" 3 *******#*##****## **********************1 
PRINT "3*1 


160 

PRI NT "3*1 

m 

s 

170 

PRI NT "3*1 

m 

WM 

ISO 

PRI NT "3*1 

m 

m 

190 

PRI NT “3*1 

m 

•SS: 


1" 

3*1 

3*1 

3*1 

3*1 

3*1 


200 PRI NT "3*1 j 
210 PRINT" 3**********#*******************#***##***! 
220 DEFFNS<X > = INT <XX13? 


230 DIM2*< 12? , SL< 3,3? , J* f ( 3,3? ,AX<52? ,d;-.'< 3,3? ,FX<3,3? ,EX<3,3? :C8=. 1415926 
248 PRINT"S5fiIN QUESTO GIOCO NON DEVI MAI PREMERE IL" 

250 PRINT"TASTO BF< E T U R N3" 

260 PRI NT "SIS QUANTE MANI VUOI GIOCARE ?" 

270 GETSE*:IFSE*=""THEN270 

230 IFVAL < SE*:><0ORVAL<FÉ*>>9THEN270 

290 SE=VAL < SE* ?:SE=SE/93001 

300 F'R I NT " 3" : FORJ=0TO3 : READS1 * < J ? : NEXT 

310 DATA"*" ,N,S,H,0,C 

320 FORJ=0TO12:READZ*<J?:HEXT 

330 DATAA,K,Q,J,D,9,8,7,6,5,4,3,2 

340 GOSUB2300 

350 PRI NT "SIS QUALE CONTRATTO RITIENI DI POTER" 

360 PRINT"CONCLUDERE GUARDANDO LE CARTE TUE <IH" 

370 PRINT"BASSO? E QUELLE DEL MORTO (IN ALTO? ?" 

380 F’R I NT " HBQUANTE PRESE ? " ; : GOSUB920 : B*=P* : PR IHTTAB 05? " 3" B* ; 

390 PRINTTAB<18?"DI QUALE SEME ?";«GOSUB920:PRIHTTABC34?"3"P* 

400 IFP*="S"THENUB*=B*+P*:P*="N" 

410 B*=B*+P*sO*=" « 

420 QQ*= " aSSISlSSIfiSSIS" 

430 PRIHTQQ*:F0RK=1T07:PRINTO* sNEXT 
440 PRINTQQ* 

450 P*=MID*CB*,2,1? + "5":GOSUB2190:TR=S 

460 IFTR=9THEN350 

470 IFTR=4THENGOSUB620 

480 L=3:FORTT=1TO13 :GOSUB700sIFZ=52THEN50O 

490 SM=TWAND1:W<SW?=W<SW?+1:L=TW: SF'X < TS ? =SPX ■( TS ? +1:GOSUB2380sNEXTTT:GOTO510 
508 TT=13::GOSUB2380 

510 W < 0 ? =0 :W <1 ? =0 :TT=0:ML=0:FORJ=0TO3:SPX < J ? =0 :NEXT:CL=0 
520 PRINT"SJVUOI GIOCARE LA STESSA MANO ?" 

530 GETX*: IFX*=""THEN530 
548 I FX*0" N" THEN530 


550 PRINT"SUE VUOI GIOCARE UN'ALTRA ?" 

560 GETX*: IFX*=""THEN560 
570 I FX*="S"THENRUN 

580 PRINT"BVUOI RIGIOCARLA CON KST - 0VEST3 ?" 
590 GETX* : IFX*=""THEN590 
600 IFX*="S"THENGOSUB690 
610 GOSUB2380:GOTO350 
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620 PORJ=6T03:S=SL < J,1> +SL < J,3>:IFK<STHENK=S:LS=J 
630 IFJ<>LSRN0S>6THENSM=J 
640 NEXT:RETURN 

650 S2=LS : IFSL<S2,P>=0THENS2=SM 
660 IFSL < S2, P } =0THEN2000 
670 GOTO1980 

6S0 FORK=lTOL-X-lsX=X+l:FORS=0TQ38:C=C+C8sNEXTS,K:GOTO260 
690 FQRJ=0TO51:RXCJ>=<RX<J>+1>RND3:NEXT:RETURN 
7O0 P=L:T=1 

710 PI =PRND 1 :ON<P1 +1 >G0SUB798,1080 
720 XFZ=52THENRETURN 
730 AX<Z>=RX<Z:>+TT#16 
740 ON < P+1> G0SUB910,770,910,780 
750 GGSUB2030:XFT=4THENRETURN 
760 T=T+1sP=<P+l>RND3sGOTO710 
770 PRINT"EST GlOCR "P$:RETURN 
780 PRINT"OVEST GIOCR "P*;RETURN 
790 IFCL=1GOTO970 

800 IF < SL < TS,P > = 1 RNDTO1 >OR<TT=13>THEN970 
810 IFP=2THEN840 

820 PRINT"COSR GIOCHI DI MORTO ?" ; :GOSUB920 :U*=P* :PRINTTAB<24:> "3"U$; 
830 GOSUB920:PRINTTAB < 25 >"3"P*:P$=U*+P*:GOTO860 

848 PRINT"COSR GIOCHI DI MfìNO ?";sGOSUB920:U$=P*:PRINTTRB<23>"3"U*; 
850 GOSUB920 : PRINTTRB < 24 ) " 3" P* : P*=U*+P* 

860 GOSUB2190 

870 IFZ=54THENGOSUB1010:GOTO790 
380 IFZ=53THENCL=1 .-GOTO970 
890 IFZ=52THENRETURN 
900 GOSUB2120:1FLL=0THEN790 
910 RETURN 
920 P*="" 

930 PRINT" II"; sFORQ=lTO150:NEXT 

940 GETR$:IFA*=""THENPRINT"a HI";:FORQ=1TO150 :NEXT .-GOTO920 

950 PRINT" " :P*=A$.-RETURN 

960 P*=P$+R$:PRINTfì$;"a HI";sGOTO940 

970 GOSUB1050 :GOSUB2020 

980 IFP=0THENPRINT"IL M. GIOCR "P* 

990 IFP=2THENPRINT"TU GIOCHI "P* 

1000 RETURN 

1010 IFTT=1THENPRINT"NON SI BRRR . ":RETURN 

1020 FORZ=0T051sIFTT-1 = INT< RX <Z >/16>THENZ5< RX < Z > RND15 > =Z 
1030 NEXT 

1040 F0RJ=8T03:2=Z5<J>:GOSUB2020:PRINTP*;" "; :NEXT :PRINT sRETURN 

1050 FORZ=0TO51 :1 FAX < Z > OPTHEN1070 

1060 GQSUB2120 : 1FLL=1THENRETURN 

1070 NEXT 

1080 TZ=TWAND1 

1090 IFTO1THEN1410 

1100 IFTR04THEN1170 

1110 S2=LS!IFSL < S2,P > =0THENS2=SM:IFSL < S2,P> =0THEN650 
1120 P1=P s GOSUB1950 

1130 IFF>SL<S2,0>RNDF>=SL<S2,2>THENV=1:U=1SGOSUB1910:GOTO2020 
1140 K=FX<S2,P>: IFK=30RK=70RK=150RK=14THEN1840 

1150 IFSL<S2,P»3RNDSPX<S2>=0THENV=4:U=1;P1=P:GOSUB1910;GOTO2020 
1160 GOTO1840 

1170 K=0:S2=-1;FORS=0TO3:F=0:FL=0 

118© S4=SL<S,P—1>:S5=SLCS,3-P;:S6=SL<S,P>:S7=SLCS,4-P> 

1190 IFS6=0THENF=0:GOTO1340 

1200 F6=FX<S,P>:F4=FX<S,P-1>:F5=FX<S,3-P>:F7=FX<S,4-P> 

1210 IFS=TRTHEN1230 

1220 IFS7=0RHDSL< TR,4-P >>0RNDS4>0THENF=10 :FL= <DX <S,P > = 1>: GOTn 1340 
1230 IFF6>23ANDS4>0RNDS5>0THENF=9.3 :FL=2 sGOTO1340 
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1240 I FS6= 1 RNDTROSRNDSL < TR , P >>0RNDSPX < S > <2RNDF4O20THENF=8 : GOTO 1340 
1250 I FF4<F7RNOS4>0fiNDF5<24flNDDX < S, P > <> 1 THENF=9 : GOTO 1340 
1260 IFF4<2RNDS4>1RNDF5<24THENF=7 sGOTO1340 
1270 IFS=TRTHEN1340 

12S0 I FS6= 1RND3L C TR , P > >0RNDSPtt< S > =0RNDF6O3THENF=7 : GOTO 1340 
1290 IFF6=150RF6=14QRFS=7THENF=6:FL=-1:GOTO1340 

1300 IFF6<4RNDS6=2RNDSL<TR,P>>0RNDSPX<S> =0RNDF4<20THENF=5 :FL=1 :GOTO1340 
131© IF < S4=1 RNDF6>F4 > OR 35= 1 RNDF6>F5 > THENF=3. 5 : FL= 1 : GOTO 1340 
1320 I FF7>F4THENF=4 : GOTO 1340 
1330 F=3 

1340 IFS=TRTHENF=F-4 
1350 IFF>KTHENK=F:32=3 :J=FL 
1360 he: ; 13 

1370 FL=J: IFFL=-1THENFL*1 
1330 TS=S2 

1390 IFFL>0THENV=FI_ :U=1:P1=PsGOSUB1910:GOTO2020 
1400 GOTO1830 

1410 IFSL<TS,P>O0THEN1490 
1420 IFTR=4THEN1850 
1430 IFT=4fìNOTZ=0THEN1710 
1440 1FT=4THEH1850 

1450 IFT=3THENG0SUB1750:1FLL=0RND3L<TR,P>>0THEN1720 
1460 IFT=3THEN1850 

1470 IFSL'CTS,3-P> =0RNDSL< TR,3-P>>0THEN 1850 

1480 GOTO1710 

1490 IFT=4RHDTZ=0THEH1660 

1500 IFT=2THEN1590 

1510 IFT=4flNDTZ=1THEN1830 

1520 IFT=3THENGGSUB1750:1FLL=1THEH1830 

1530 S2=TS.-V=1 :U=1 : P1 =P : GOSUB 1910:1 F TH<ZTHEN 1830 

1540 IFSLCTS,3-P> = 1THENU=-1:GOSUB1910 

1550 F0RJ=13*TS T013#TS+12 : IFRXC J>=PTHENZ=.J 

1560 IFRX<J>=3-PTHEN2020 

1570 IFJ=THTHEN2020 

1580 NEXT:GOTO2020 

1590 F=FJi<TS.,P>+FJi<TS,4-P> :F4=Z-FNS<Z>#13 

1600 IF<F=5ORF=10ORF=11>RNDF4>1RNDF4<5THENS2=TS:GOTO1840 

1618 IFSL<TS,0>>lflNDSL<TSr2>>lRNOSP54<TS>=0RNDCFJi<TS,P>flNO24) = 16THEN1650 

1620 IFSL<TS,3-P>=OTHENTX=TS#13+12:GOTO1680 

1630 Pl=3-P:S2=TS:V=1:U=1:GGSUB1910:TX=Z:IFTH<TXTHENTX=TH 

1640 GOTO1680 

1650 S2=TS:GOTO1830 

1660 IFTSOFNSCTH) THEH 1330 

1670 TX=TH 

1680 F0RZ=13#TS+12T013*TS STEP-1:IFRX<Z>OPTHEN1700 
1690 IFZCTXTHEN2020 
1700 NEXT:GOTO1830 

1710 I F<TWRND1> = 1ORSL<TR r P>=0THEN1850 
1720 IFFNS < TH > OTRTHEN1820 

1730 S2=TR:U=-1:P1=P:FORJ=lTOSL<TR,P>:V=J:G0SUB191@:IFZ<THTHEN2020 

1740 NEXTJ:GOTO1850 

1750 P1=3-P:P2=4-P:LL=0 

1760 IFTS=TRTHEN1780 

1770 IFFNS < TH > =TRTHEHLL=1 :RETURN 

1780 IFTZ=0THENRETURN 

1790 IFSL<TS,P1 >=s0THENLL=l : RETURN 

1800 Pl=3-P:S2=TS:V=1:U=1:GOSUB1910:IFZCTHTHENRETURN 
1810 LL=1:RETURN 

1820 S2=TR:V=1:U=-1:P1=P:GOSUB1910:GOTO2020 
1830 S2=TS:V=1:U=-1:P1=P:GOSUB1910:GOTO2020 
1840 P1=P:V=1:U=1:GOSUB1910:GOTO2020 
1850 D1=0 :S2=-1 :FORS=0TO3:1FS=TRTHEN1880 
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1868 IFS=TRTHEN1880 

1878 I FEZ < S , P > >D 1THEND1 =EX (. S , P > i S2=S 
1880 NEXT 

1898 IFS2<0THENS2= INT<4#RND< 1 >> : IFSL<S2,P>=0THENS2=-1 .-GOTO 1898 
1900 GOTO1980 

1910 Z=S2#13-< U-1> *6 s FORG=1TOV 
1928 IFZ<0ORZ>S1THEN2008 

1930 IFAX<Z>=P1THENZ=Z+U:NEXT:Z=Z-U:RETURN 
1940 Z=Z+U:GOTO1930 

1958 S=31:K=FZ<S2,P1>:F0RJ=8T05:F=5-J 
1960 IFS=KTHENRETURN 
1970 S=INT < S/2 > : K= INT< K/2>:NEXT 

1980 F0RZ=S2*13+12T0S2*13STEP-1:IFAZ<Z>=PTHEN2020 
1990 NEXT:GOTO2820 

2008 Z=INT<52#RND<1>> :IFAX<Z>OPTHEN2000 

2810 G0SUB2120:1FLL=0THEN2000 

2028 P#=S1*<FNS<Z>>+Z*<2-FNS<Z>*Ì3>:RETURN 

2030 S1=FNS<Z> : IFT=1THENTS=S1 .-GOTO2050 

2048 GOSUB2060:IFLL=0THENRETURN 

2050 TW=P:TH=Z:RETURN 

2060 LL=1:FT=FNSCTH>:FZ=FNSCZ> 

2078 IF<FZ=FT>fiNDTH<ZTHENLL=0:RETURN 
2880 IFFZ=TRTHENRETURN 
2090 IFFT=TRTHENLL=8 
2180 IFFZOTSTHENLL=8 
2110 RETURN 

2120 IFZ>51THENLL=0 sRETURN 

2130 LL=1 :S1=FNSCZ> : IFAZ<Z>OPTHENLL=0 

2140 IFT=1THENRETURN 

2158 GOSUB2180:1FSC=0THENRETURN 

2160 IFS1<>TSTHENLL=0 

2178 RETURN 

2180 SC=SL <TS,P >:RETURN 

2198 X$=LEFT$<P*,2>:IFX$= M CL"THENZ=53:RETURN 
2280 IFX* = " LFl " THENZ=54 : RETURN 
2218 IFX$="ST"THENZ=52:RETURN 
2220 FORS=0TO8:IFS1*<S)=LEFT«<P*,1>THEN2248 
2238 NEXT 

2240 IFS>4ANDS<9THENS=S-5 

2250 T*=MID*<P*,2,1> :FORZ=0TO 12 

2268 IF LEFT*>;Z*<Z:>,1>=T$THEN 2230 

2270 NEXT:Z=55:RETURN 

2288 Z=Z+S#13:IFZ>51THENZ=55 

2290 RETURN 

2308 PRINT"UN ATTIMO.":X=X+1:F0RJ=8T051:RX<J>=0:HEXT 

2318 S5=SE+X/93047:1FSE>0THENS4=RND< -S5 > 

2320 F0RK=1T03:GOSUB2350:NEXT 
2330 GOSUB2380:RETURN 

2340 FORJ=0TO3:FORK=0TO3:DX<K,J>=0:FJ4<K,J>=0:SL<K,J)=0:J*<K,J>=" " :NEXTK, 
J: RETURN 

2350 FORJ=0TO12:IFINT<C>=INT<C+. 5>THENR=RNO< 1 ) 

2368 R=INT<RND<1>*52>: IFAX <R > >0THEN2368 
2378 AX <R > =K:C=C+C8:NEXTJ:RETURN 

2380 GOSUB2340:IFTT=13THENFORJ=0TO51:AX<J)=<AX<J>AND7>sNEXT 

2390 F0RJ=8T051 :R=AXtJ> : IFSOFNSC J >THENF=8 

2480 S=FNS<J>:IFR>9THEN2430 

2418 F=F+1:J$<S,R>=J*<S,R>+Z#(J-S#13> 

2428 SL< S , R > =SLCS,R> +1:FX<S,R>=FX<S,R>+2t<5-F>:IFOX<S,R>=0THENDX<S,R>=F 
2438 NEXTJ 

2440 FORJ=1T03STEP2:FORS=0TO3 

2450 S4=SL<S,0> :S5=SL | ;S,2> :S6=SL<SJ> :S7=SL<S,4-J> :D6=0X<S, J> 

2468 IFS4<S6ANDS5<S6THENE=10:GOTO2560 
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2470 IFS6=lFINDD6=lflND<S4>0ORS5>0>THENE=0:GOTO2560 
2480 IFS6=0THENE=-1:G0T0256© 

2490 IF < D6-S6 >>2AND<S6<S40RS6<S5 > THENE=9:GOTO2560 

2500 IFS6>S?AN0<S6=S50RS6=S4 > RNDS6=1RNDDX< S,4-J > = 1THEHE=1.5:GOTO2560 

2510 IFS6>S7RNO<S6=S5ORS6=S4>THENE=2sGOTO2560 

2520 IFS6*D6HND<S6<=S4ORS6<=S5>THENE=0:GOTO2560 

2530 IFS6>D6THENE=7:GOTO2560 

2540 IFS6=D6THENE=6:GOTO2560 

2550 E=3 

2560 EJi<S,J>=E:NEXT S,J 

2570 PRINT"31fiN0 N."X;:FORK=0TO2:IFK=1THENPRINT 
2580 F=12 : IFTT013THENF=13 : IFK=1THENNEXT 
2590 F0RS=8T03:IFK=1THENK=3:F=0:GOSUB26/0:K=1:F=23 
2600 IFKO0THEN2660 
2610 IFTT=0THEN2660 

2620 IFLEN < UB* > =2RNDS=1THENPRINT"CONTR.="UB*;:GOTO2640 
2630 I FS= 1 THENPR I NT " CONTR. = " 

2640 IFS—2THENPRINT"TU "l»K0>; 

2650 I FS=3THENPR I NT " LORO " H< 1 > 

2660 GOSUB2670 SPRINT :NEXTS,K:RETURN 
2670 PRINTTfi6<F>Sl*<S>J*<S,K>;sRETURH . 


100 REM COPVRIGHT IN BASIC 
102 REM VIA SEZZE 22 LATINA 
104 REM TEL. 487631 

110 CLR SPRINT "EH" : TV= 1024 : DI MQ$ 15.. 15 > 

115 B=3:PO=53280:FORK=0TO1:POKEPO+K,B:NEXT 

120 pRiHT"a^***t*****#*****mm**^**********#*****m" 

130 PRINT"a*S 
140 PRINT"3*S 
150 PRINT"if*B 
160 PRINT"3*S 
170 PRINT"3*B 
180 PRINT"3*B 
190 PRINT"3*S 
200 PRINT"a»B 
210 PRINT"3*S 
220 PRINT"3*S 
230 PRINT"i*S 
240 PRINT"if*S 
250 PRINT" j8*B 

260 pr i nt ■■ ^*m#*#***#**.*#***##*mm*******mm****m u 

300 PRINTThBC12>»PREMI UN TASTO" 

310 GETfì*:IFfi$=""THEN310 

320 PR I NT " jaUUU" ! : FORK= 1TO15 : PR INTCHR* < 64+K > ; : NEXT : PR I NT " SS" 
330 FQRK=1TO15:1FK<1©THENPRINT" "; 

340 PRINTK:NEXT 

350 PR I NT " —————— " 

360 FORK=l TOl5 SPRINT"|**li*B I " sNEXT 

370 PRINT"»BI ■A———" 

380 REM SCELTR RRNDOMICfi DI 10 VOCABOLI E LORO SISTEMAZIONE 
390 PRINT"g"TRB<24)"OLIN ATTIMO DI" 

400 PRINTTAB<26 > "PRZIENZR3" 

410 FORK=lTO15:FORJ=lTO15sQ*<K,J>="0":NEXTJ,K 
420 V<0>=INT<49*RND<TI>+2> 

430 F0RK=1T09 

440 V < K> = INT <RND< TI >#50-*-1 > 

450 FORJ=0TOK—1 

460 IFV < K > =V< J > THEN440 
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470 NEXTJ,K 
480 FORK=0TO9 

490 FORJ=1TOVOO sREADVSOO :NEXT:REST0RE 

500 NEXT 

510 FORK=0TO9 

520 C1=INT<RND<TI>#15+1> 

530 C2=INT<RND< TI> #15+1> 

540 X=INT<RND< TI> #3 >-1 

550 V=INT(RNDCTI>#3>-l 

560 I FX=0FINDV=0THEN540 

570 IFC1+X# < LEN < V# <K > >-1 »15THEN540 

580 IFC2+V#< LEN< V# <K >>-1 »15THEN540 

590 IFC1+X#<LEN<V$<K> >-lX0THEN540 

600 IFC2+Y#< LEN < V* < K > >-1><0THEN540 

610 FORJ=0TOLEN<V$<K>>-l 

620 IFQ$ < J#X+C1,J*Y+C2 > =MID$< V* <K >,J+1,1>THEN650 
630 IFQ$<J#X+C1,J#V+C2>="©"THEN650 
640 GOTO520 
650 NEXT 

660 FORJ=0TOLEN < V* < K > >-1 

670 Q$<J#X+C1,J#V+C2>=MID*<V*<K>,J+l,1> 

680 PRI NT " S^fisItìS" SPC < 28 > 24—K 
690 NEXT 

700 RI<K>=X:R2<K>=VsR3<K>=Cl:R4<K>=C2 
710 NEXT 

720 FORK=0TO9lC$=C*+V*<K>:NEXT:L=LEN<C*> 

730 FORK= 1TO15 : PR I NT " SftftlMMM 11 SPC < 28 > 16-K 

740 FOR J= 1TO15 s I FQ$ < K , J X> " 0 " THEN760 

750 R=INT<L#RND<TI> + l>!Q*<K,J>*MIO$<C$,R,1> 

760 NEXT 

770 I FK=6QRK= 15THENPRI NT " aMMMWM " SPC < 28 > " 

780 NEXT 

790 PRINT"9"SPC<24> " •* 

800 PRINTSPC<24>" 

810 REM STAMPA DEI VOCABOLI E DEL QUADRO 
820 PRINT"g'*SPC < 24> "ELENCO PAROLE" 

830 FORK=0TO9sPRINTSPC<24> "SJ"K ,, -"V*<K> :NEXT 

840 PRINT"gtS" :FQRK=1T015:F0RJ=1T015:D$=D$+Q#<K,J>:NEXT 

850 PRINTTAB<4>D$sD*=""sNEXT 

855 WR=55330 :FORK=0TO14 :FORJ=0TO14 :POKEWR+K+40#J,6 :NEXT .-NEXT 
860 REM GIOCO 
870 Q*= “ 

880 H$=" 

890 PRINTQ$"33UANTI MINUTI DI GIOCO ?" 

900 GETP*: IFP$="”THEN900 

910 IFASC< P*>C490RRSC<P*>>58THEN900 

920 PRINTOSH* 

930 TI * ="000000":P=ASC< P$ >-48 

940 IFTI>P#3600THENPRINTQ$H*:GOTO1160 

950 PRINTG$"3KUMER0 DEL VOCABOLO ?" 

960 GETQW* 

970 IFQW*=""THEN940 
980 R1=ASC < >-48 

990 IFR1<0ORR1>9THEH940 
1080 PRINTQ$H$ 

1010 PRINTQ*; :IHPUT"RIGA IN CUI INIZIA";R2$:R2=VAL<R2*> :PRINTQ*H* 

1020 PRINTQi;: INPUT"COLONNA";R3$:PRINTQ$H* sR3=ASC<R3*>-64 

1830 IFTI>P#3600THENPRINTQ$H*sGOTOl160 

1040 IFR20R3 < R1 > THEN940 

1050 IFR30R4< R1 > THEN940 

1060 IFFL < R1> = 1THEN940 

1070 POKETV+47+80#R1+18+40,32 
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1080 FLXR1 > = 1 :M=M+i 
1090 FORK=0TOLEHV*CRI> >-l 

1100 KK=TV-41+44+40*R2+R3+K*R2<Rl>+K*40#Rl<Rl>+40 
1110 1 FPEEK C K& X30THEHPOKEKK, PEEK < KK > +128 
1120 HEXI 

1138 IFM=18THEN1210 

1140 G0T0940 

1150 REM FINE GIOCO 

1160 FORK=lTOl©;PRIHTQ*"asHHl PERSO MS" 

11 70 I ÓkJ-110300 :NEXr:FRINÌPERSO ! 13":FGRJ-110300iNEXT iNEKT:PR1NT0*H* 
1180 C*="" 

1190 FORK=0TO9:H<K> =0:NEXT:M=0 
120© GOTO1270 
1210 T=TI/60 

1220 PRINTQSH*;F0RK=1T010:PRIHTQ*"fliHHI VINTO MB" 

1230 FOR J- 1TO300:NEXT:PRINTQ*"HAI VIHTO ! ! 3":FORJ=1TO380:NEXT:NEXT:PRINTQ*H$ 
1240 PRINTQ$"Hfi] VINTO IN "INTCT}“SECONDI" 

1250 GOTO1320 

126© REM USCITO PER TEMPO SCADUTO 
1270 PRINTQ$"ÈCCO LA SOLUZIONE T" 

1280 PORR1=0TO9:FORK=0TOLEN <Vt <R1> >-1 

1290 KK=TV-41+44+40#R3<Rl>+R4<Rl>+K#R2<Rl>+K*40*Rl(Rl)+40 
1308 IFPEEK<KK> C30THENPOKEKK,PEEK<KK> +128 
1310 NEXT:NEXT 

1320 PRINT"SJflf/UOI RIPROVARE ?3" 

1330 GETV*: IFV*=""THEN1330 
1340 IF Y$= " S " TMEHRUN 
1350 PRINT"33K - CIAO M" 

1360 END 

1370 REM VOCABOLI DI BASE 

1380 DATAOIHEVRA, PORPORA,WEEKEND,SUSANNA,LONDRA,VIQLETTO,FRANCESCA 
1390 DATACOMMQOGRE,AZALEA,CARLO,BUCAREST,MARRONE,PAPERINO,CAMOSCI0 
1400 DATARAMIKAZE,TORONTO,RAFFAELE,HAHDICAP,CHIOCCIA,AMARANTO,TOKYO 
1410 DATANEWYORK,MIRELLfl,BUDAPEST,TIZIANO,CANGURO,PRIMULE,CATULLO 
1420 DATAARANCIOHE,COMPUTER,TOPOLINO,QUADRO,MADRID,ANGELO,ANTILOPE 
1430 DA rAGIUSEPPE,SNOOPY,TULIPANO,VIEHNA,ANTON10,SQUADRA,INDACO 
1440 DATAJUVENTUS,PANDA,AHEMONI,AZZURRO,PECHINO,REATTORE 
145© DATHMOQUETTE,SAMOVAR 


100 CLR:P0KE53288,10;P0KE53281,3 

110 A*=:"ÌUJ*****i*!*****#******#***#if#*#**'***##**#*#*" 

128 pria r" :7<u "ht 

130 FOR 5 - 1T026 : PR I NT " llJS* " : NEXT : PR I NT " 3" A* 

.140 PR I NT " a" : FOR I = 1T021 : PR IN T " ■ : NEXT ; FRI NT 

150 PR INI" a«tóìSl®JMyMQUUMIiaF- LABORATOR E" 

160 PR INTTAB < 11 > " SSSD I 0 I E T E3" 

170 PR 1 NTTAB<8> " BWMMMF REMI IL TASTO RETURN " :G0SUB2270 

180 DIM C1<2,3>,C2<2,3>,C3<5>,C4<6,3> 

190 FORI = 1T02:FORJ=1T03:RERDC1<I,J >:NEXT:NEXT 
200 DATA 3.9167,4.0833,4.5,3.4167,3.5833,4 
218 FORI = 1T02:FORJ=1T03:READC2CI,J >:NEXTsNEXT 
220 DATA 128.75,128.25,142.5,105,106,122 
230 FOR1 = 1T05:READC3O >:NEXT 
240 DATA i .68,4.32,5.75,3,12.3 

258 FOR1=1T06:FORJ=1T03:READC4<I,J>:NEXT:NEXT 
260 DATA 186,199,210,175.7,133.5,199 
270 DAI A Ì64,171.5,186,180,182,192 
280 DATA 164,171.5,186,154.5,162,175 
290 CS----. 454 :C7=2. 54 
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300 P0$="<S OPPURE N>" 

31© Pl*="SPIACENTE,SEI TROPPO " 

320 r?T="PER QUESTI CALCOLI. " sP3*=”I risultati POSSONO ESSERE IMPRECISI.” 

330 P4$= "—-” :H*="3 

340 PRINTH* 

350 PRINT" 3MB»»»» 3QNTR0LL0 DEL PESO" 

360 PR I N 1 " 

37O PRINTTRBC7>" MBWR ISPONDI ALLE MIE" 

380 PRINTTAB<7>"SPOMANDE, E POI BATTI" 

390 PRINTTAB < 7 >" SIL TASTO OR E T U R NB" 

400 PRINT"a»l5l5l*Mt*MJE'LA PRIMA VOLTA CHE" 

410 PRINT" »I W»MF hI UNA DIETA ? "; 

420 -i>2—.li 

430 G0SUB2278:PRINT"3" 

440 IFLEFTT < WWt1 > = " N " THEN S2=l 

450 IFLEFT*CWM*,1>=:"S" THEN S2=0 

468 IF S2<2 THEN 480 

470 GOSUB 2268:GOTO370 

480 IF S2=l THEN 570 

490 print" «manna 11 

500 PRINT"QUESTO PROGRAMMA NON HA BISOGNO DI" 

510 PRINT"SPIEGAZIONI , DOVRAI SEMPLICEMENTE" 

520 PRINT"RISPONDERE ALLE DOMANDE. I RISULTATI" 

530 PRINT"SONO VALIDI PER PERSONE DI ETA r " 

540 PRINT"COMPRESA FRA 18-71 ANNI,E DI ALTEZZA" 

550 PRINT"COMPRESA FRA 152-198 CM." 

560 PRINT 

570 PRINT"UHITA' BRITANNICHE 0 ITALIANE ? <B-I> "; 

580 GOSUB2270:S1=-1#<WW*="I"> 

590 IFS1=0ANDCWW*O"B" >THENGOSUB2260 :GOTO570 
600 PRINTH$:IFS1=0THEN640 

610 PRINT "HasaiSJQUANTO SEI ALTO IN CM? " ; :GOSUB2270 :A2=VAL<WW#> 

620 A2=A2/C7;GOTO660 
630 GOSUB 2270 

640 PRINT " WWMMM SEI ALTO.":PRINTSPC <15 >" 3= IEDI? ";t GOSUB2270!A1=VAL <WW* > 

650 PRINT :PRINTSPC C15 >"POLLICI? "; : GOSUB2270:PRINT" 3" s A2=VAL <WW*>:A2=A1*12+A2 

660 IF A2>59 GOTO 7O0 

670 PRINT :PRINTP1 $;"BASSO" 

680 PRINTP2*:PRINTP3* 

690 GOTO730 

700 IF A2<76 GOTO 730 

710 PRINT :PRINTP1 *;"ALTO" 

720 PRINTP2#:PRINTP3$ 

730 PRINT 

740 PRINT "HHSSfflHUIOlIQUAL'E' IL TUO SESSO CM - F>? "; 

750 A3=9 

760 GOSUB 2270 SPRINT"3" 

770 IFHWT="M" THEN A3=l 
78© IFWH$="F" THEN A3=2 
790 IF A3<3 GOTO 820 
800 GOSUB 2260 
810 GOTO 738 

820 PRINT"?iSMa5iaMU»:0M'E' LA TUA COSTITUZIONE?" 

830 PR I NT " MUCHI 3--S0TTI LE , M=MED IA , L=LARGA > 3" ; 

840 A4=9 

850 GOSUB 2270SPRINT"3" 

860 IFWWT="S" THEN A4:=l 
370 IFWW*="M" THEN A4=2 
380 IFWW$="L" THEN A4=3 
890 IF A4<4 GOTO 920 
900 GOSUB 2260 
910 GOTO 820 
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920 B0=c 1 •; 03 , A4 > *82—02 < 03,04 > 

930 IF Sl = l THEN B0=B0#C6 
940 B2=INT< B0*.25+. 5 > /10 
950 80= I NT •: B0+. 5 > 

960 PRINT "JflHHHB";P4*SPRINT 

970 PRINT "IL TUO PESO IDEALE DEVE ESSERE COMPRESO" 

988 PRINT"HFR0"STO:9 ,j I UTB0 B2+.5>" E " INTCB0+B2+. 5> 

990 FRINÌ :PRINrp4* .-FRINÌ 

1000 PRINTSPC < 23 >"SKS - N>X3":PRINT"VUOI CHE TI CALCOLO LA DIETA ? "; 
1010 G0SUB2278:PRINT 

1020 l'F WW»0"S" AND MW*0"N" THEN GOSUB2260 sGOTO 1000 
1030 IFWW*="N" GOTO 1570 

1048 PRINT "Hsll**M*aUANTI ANNI HAI ? " ; 

1050 GOSUB 2270 
1060 A5=VAL MM* > 

1070 IF A5>17 GOTO 1110 
1080 PRINT :PRINTP1T;"GlOVANE" 

1090 PRINTP2*:PRINTP3*:PRINT 

1100 GOTO 1130 

1110 IF R5<?2G0T01130 

1120 PR I NT : PR INTP1 %" VECCH10 " : PR INTP2* : PR INTP3* : A5=71.999 
1130 PRINT 

1140 PRINT "HHSJaUAL'E' IL TUO PESO ATTUALE?!!" ; 

1150 GOSUB 2270:PRINT"3" :A1=VAL<WW*>:IFA1<=0THENGOSUB2260:G0T01140 

1160 IF SI=0 GOTO 1180 

1170 A1=A1 /Ce :B0=B0/C6 

1180 GOSUB 1648 

1190 IF S2=l GOTO 1260 

1200 B3=CA1-B0>/B0 

1210 IF B3<0 GOTO 1230 

1220 IF B3>.04 GOTO 1260 

1230 PRINT :PRINT"COMPLIMENTI ! H" 

1240 PRINT"NON DEVI OSSERVARE ALCUNA DIETA" 

1250 IFS2=0THEN1560 

1260 PRINT"VUOI COMINCIARE UNA DIETA ? <S-N> "; 

1270 GOSUB 2270 

1286 IFWW»="N" GOTO 1570 

1290 PRINTH* 

1300 IF S2=l GOTO 1330 
1310 A7=A1—B0 
1328 GOTO 1420 
1330 IF S1=0 GOTO 1390 
1340 PRINTH* 

1350 PRINT"QUANTI KG VUOI PERDERE ? "; 

1360 GOSUB 2270 :A7=VAL<WW*>:IFA7<=0THENGOSUB2260:GOTO1350 
1370 A7=A7/CS 
1330 GOTO 1410 

1390 PRINT';QUANTE LIBBRE VUOI PERDERE ? ";:GOSUB2270:A7=VAL<MW*> 

1408 IFA7<=0THENGOSUB2260:GOTO1390 
1410 PRINT 

1420 PRINT " MBUatK EI DISPOSTO A CAMBIARE IL TUO ATTUALE" 

1430 PRINT"LIVELLO DI ATTIVITÀ' FISICA ? <S-N> "; 

1440 GOSUB 2270 
1450 PRINT 

1460 IFWW*="S" THEN GOSUB 1640 
1470 IF S2=l GOTO 1520 
1480 A8=1200 

1490 PRINT"OK, TI SUGGERISCO LA DIETA SEGUENTE:" 

1500 PRINT"1200 CALORIE AL GIORNO":GOTO1550 
1510 GOTO 1550 
1520 PRINT 

153© PRINT"QUANTE CALORIE AL GIORNO" :PRINT"DESIDERI NELLA DIETA? "; 
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1540 G0SUB2278:A3=VAL<WW*> 

1550 GOSUB1910 
1560 PRIHT 

1570 PRINTSPRINT"SVUOI RIPETERE IL CALCOLO PER" 

15S0 PRIHT"UH ALTRO PESO ? <S-N> "; 

1590 GOSUB 2270 

1600 IFWW*="H" GOTO 1630 

1610 PRINTH* 

1620 DOT0600 
1630 END 

1640 PRIHT "SSSSftklKJMUBP IVEI.L 1 DI ATTIVITÀ' riSICRS" 

1650 PRINTTABC 10> " 8IB11 = SEDEH1 ARIA" sFRINTTHBC 10> "2 = LEGGERA“ 
1660 PRINTTfiB<10>“3 = MODERATA" 

1670 PRIHTTABU0V4 = ENERGICA":PRINTTABv10>"5 = SEVERA" 

1680 PRINT" MMBMUM aUALE LIVELLO ? <DA 1 A 5> " 

1690 GOSUB 2270:PRINT"3" sA6=VAL<WW$> 

170© IF0<A6ANOA6<6 GOTO 1730 
1710 GOSUB 2260 
1720 GOTO 1640 
1730 10=1NT<A5/18 > 

1740 IP I0C1 THEH 10=1 
1750 11 = 10+ <03*3-3> 

1760 12= 1 + <; C A2-60 > 76 > 

1770 12= I NT ■; 12 > 

1730 IF 120 THEN 12=1 
1790 IF I2>3 THEN 12=3 
1300 W1=C3<H6>#A1 
1310 W2= CA1T.425>*C4<11,12} 

1320 B2=1.11* <W1+W2 > +.5 
1330 B2=INT <B2> 

1340 PRINT 

1850 PRINI" MUMDffia DALTOIORNO DI MANTENIMENTO ="B2 
1360 PRINTP4* 

1S70 PRINT"CALORIE GIORNALIERE PER MANTENERE" 

ISSO PRINT"IL TUO PESO ATTUALE." 

1890 PRINT 

1900 RETURN 

1910 PRINT 

1920 A9=A1-A7 

1930 N1=A1 

1940 1=0 :J=0:W3=0 

1950 PRINT"SJv'UOI VEDERE CON QUALE RITMO PERDERAI" 

I960 PRIHT"IL PESO DURANTE LA DIETA ? “;:G0SUB2270:h$=WN$ 

1970 I FA#="N"GOT02138 

1930 PRINTH*SPRINT"fflGIORNI KG-PERSI PESO ATTUALE 3" 

1990 PRINT 

2008 IFA*="N"G0T02130 

2010 J-J+l 

2020 W8=W3sW9=Wl 

2O30 IFS1THENW3=H3*C6 :W9=W9*C6 

2040 W8=INT<WS*100+.5)7100 :W9=INT<W9*108+.5>7100 
2050 IF JC20 GOTO 2100 

2060 PRINTSPRINT"PREMI IL 03ETURNS PER CONTINUARE "; 

2070 G0SUB227© 

2038 J=8 

2090 GOTO 1930 

2100 IFtì$="N"G0T02130 

2110 IFI=8GOTO2130 

2128 PRINTI,W3,W9 

2138 1 = 1 + 1 sW6=C3 < 06>*W 1 :W7=<W1T. 425>*C4<I 1, 12> sB2=W6+W7 
2148 H3=<B2-A8*.9>73500 :W1=W1-W3 
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2150 IF<W3>0AND<W1-09>>0>OR<W3<=0ANO<W1-09)<0>THEN2000 
2160 FRINT 

217© IF I>1 GOTO 2200 

2180 PRINT"SPINGENTE, DEVI MANGIORE DI MENO.SPRINT"-0 MUOVERTI DI 

PIU'!H" 

2190 RETURN 

2200 1 = 1-1 SPRINT"SPREMI BRETURN3 PER CONTINUARE “;sGGSUB2270SPRINT 
2210 PRINT" rami " P4* :PRI NT " SCIETO SUGGERITO ■:CAL/GIORNO> s " ,08 
2220 PRIHT"RL LIVELLO DI ATTIVITÀ' ATTUALE<"RE">" 

2230 PRINT"DURATA DELLA DIETA ="I" GIORNI" 

2240 IFS1THENA7=A7#C6 

2250 PRINT"PESO CHE PERDERAI ="INT<A7+.5> sRETURN 

2260 PRINT sPRINT"RISPOSTA NON VALIDA ***3 RIPROVA"sRETURN 
2270 WW*="" 

2280 PRINTTABC 10> ; ""ili" ; :FQRVV=1TO50 sGETQQT s IFQQTO" "THENVV=51 sGOTO2310 
2290 NEX.T SPRINT" sfJWI" ; sFORVV=lTO50 sGET.QQ* s IFQQSO" "THENVV=51 SGOTO2310 

2300 iie:;t soo 102280 

231 0 NEX I : I h ASC k 00* > = 131HENPR1NI " II" ; s RE IURN 
2320 IFASC<QQ*>=20 T HEN2360 
2330 IFASC<QQ*> =34THENQQ$="'" 

2340 WW*=WW*+QQ* sIFLEN<MM*>>254THENMW*=“" 

2350 PRI NT" ||"QQ$.s SGOTO2280 

2360 IFLEN <WW*><1THEN2270 

2370 IFLEN<WW*> = 1THENPRINTQQ $} sG0T02278 

2380 WW*=LEFT* < WW* , LEU < WW* -1 > s PR INTQQ* ; s G0T02280 



È un libro di software per la scuola, scritto con competenza e 
sensibilità da un insegnante. 

Si tratta prevalentemente di programmi didattici classificabili 
all'interno delle discipline tradizionali, matematica, fisica, 
statistica, ecc., ma non mancano programmi di intrattenimento - 
come la classica battaglia navale - che hanno sempre comunque 
nella scuola il loro punto di riferimento. 

Il volume può essere utile agli studenti, agli insegnanti e anche a 
tutti coloro che davanti a un computer, danno ancora 
l’impressione di essere sui banchi di scuola. 

Risparmiate tempo ed errori! 

Tutti iprogrammi descritti in questo libro sono disponibili 
su tre cassette, pronti per essere utilizzati. 


